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4229 
4227 
0004 
4615 
4819 
4223 
4428 
JOOA 
4432 
4432 
4238 
4238 
4428 
$242 


NORMX 
SCAN 
SCANX 
GEN 


NORM 


-OP2 


&OP1 
&0P2 


~OP< 
-oP4 
OPX 


REMRT 


&OPS 
-OPS 
&OP4 
MDGP 2 
MUOP 
MCOP 1 
3 


LDL 
STL 
LOL 
LOX 
STL 
LOL 
STL 
STA 
ATL 
ADO 


LIRS 
STL3 
LOA 
TGR 
ADD 
TGR 
LOL 
LOL 
TEO 


ADD 
JMP 


ADD 
STL 
LDA 
ADD 
LOL 
LDA 
ERS 
TGR 
LOL 
LIRI 
IIR 
ERS1 
LOX 
LDA 
ERS 
ADD 
JMP 
LOA 
LOA 
T1Ra 
TIR2 
STL2 
Livi. 





NORM 
GENX 
E0000 
LAST 
SCANA 
LEOFF 
LESW 
LAST 


BIGSU 


0001 
000U 
8IGZ5 
iF 
RA 
ARRAY 


LPREN 
FUNCT 


81G7k 
RA 


BrGol 
OHOLD 
RATOR 


0001 
OHOLD 
XO 
iF 
eF 
RATOR 

HHHH 

0004 
OHOLD 
XM1 
RX 
BIG9y9 
RA 
RX 
Ru 

0001 

0004 

0000 
NORMX 


+06 


See ee Gene tere Ge os 
LaF CO 


SCAN 
SCANX 
NXTCH 


GENX 
“OP 1 


iF 
SCAN 


NORM 


=OP2 


a Op 
OPX 


RA 


REMRT 
REM 


RA 


“OPS 
SF 


MDOP 1 
MDOP 1 
~OPS 
INSRT 


Ge GENERATOR CONTROL 

Gie SCAN NEAT ITEM. 
THIS SHOWS TYPICAL TRANSFER OF CONTROL 
BETWEEN TWO COROUTINES 


G2e ISIT AN OPERATOR 


OPERAND STACKED 
IS IT AN ARRAY 


SCAN NEAT ITEM 


Goe WHAT KIND OPERATOR 


G7e PUT OP IN OHOLO. 
GLOeP (RATOR) FP (ONOLO?) 


GideCOMMA OR SEMICOLON 


G2ZOceOPERATOR STACKED 


0738 4242 388 J OB 4417 4445 INERT LIR1 RATOR 
O74 


IN> 


O07 46 
07590 
0755 
0754 
0756 
0758 
O761 
0762 
0765 
0766 
O767 
0768 
0769 
O770 
O771 
O772 
0775 
0774 
0775 
0776 
0777 
0778 
0779 
0780 
0781 
0752 
0785 
O7 us 
0785 
O7 86 
O787 
07868 
0789 
0790 
0793 
O792 
0795 
07948 
0795 
0790 
0797 


 O798 


0799 
0800 
0602 
0802 
0803 
CBQ4S 
0805 


40350 
$252 


4US5 
u2UT7 
8411 
4205 
4018 
4622 
4425 
4218 
4210 
4414 
4645 
4418 
4272 
4626 
4829 
4611 
4405 
4269 
48d 
4629 
$231 
4056 
4059 
4038 
4UuST 
4055 
4608 
4051 
4261 
Bolg 
“alg 
§6i8 
44190 
4472 
4076 
4079 
4052 
4244 
4446 
4O4Q 
4e72 


338 
386 


386 
3383 
83868 
386 
388 
B86 
3686 
383 
386 
386 
366 
388 
BSs 
388 
386 
388 
386 
36B 
838 
386 
368 
368 
386 
388 
865 
888 
38B 
888 
385 
388 
385 
388 
686 
886 
386 
396 
368 
386 
685 
386 
38a 


COCheeececceccecocecececececococccaeccecacaocce 


Ee a rere Re Ot x “ ee a et 
ne entre ee 


30 
Os 


30 
50 
30 
87 
30 
87 
25 
26 
60 
25 
70 
60 
30 
87 
25 
37 
35 
20 
60 
30 
08 
30 
30 
25 
a5 
06 
30 
65 
26 
60 
25 
60 
50 
25 
77 
06 


70 
25 
25 
30 


4252 
4050 


4405 
4209 
4u13 
4O18 
4220 
4218 
4408 
4210 
4412 
4016 
4016 
4420 
aa24 
4629 
4209 
0100 
4U67 
oooc 
4209 
4231 
4058 
4055 
4055 
4420 
4620 
4608 
4ULO 
4209 
4614 
uBL2 
4016 
4420 
4420 
4624 
4076 
4632 
0900 
4O46 
0008 
4420 
4az4 


42024 
4205 


4207 
441) 
4265 
4216 
4622 
4425 
4210 
4210 
US14 
4418 
4418 
4272 
4626 
4a29 
4611 
4465 
4269 
ug23 
4629 
4202 
4205 
4407 
4807 
4625 
4625 
4608 
4612 
4261 
4614 
4814 
4618 
4055 
4472 
4076 
4079 
4632 
42a4 
Q00A 
4o4g 
4472 
4276 


SCAN} 


EQ003 


- A Ne 


EQOUS 
EOQOO9 
EQ008 
£0007 
£0005 


EOOO1 


SEnu 
SENDIL 


$0000 


LOL 
LIRI 


LOL 
STL 
LOL 
TGR 
LOLA 
TGR 
LDA 
CLA 
STA 
LDA 
ADO 
STA 
LOL 
TGR 
LDA 
SHL 
ERSA 
SUF 
STA 
LOL 
LIRL 
LDL 
LOL 
LDA 
LDA 
CLX 
LDL 
STXx 
CLA 
STA 
LDA 


STL 


400 
LDA 
LDA 
LDL 


E0000 


£0005 
E0005 
E0005 
TEMP S 
TEMPS 


SENO 
TEMP < 


TYPE 
LITd 
TEMP 5 
TEMPS 
TEMPS 


0900 


RL 
TEMP 5 
DOVAR 


NXTCH 
KIND 


1F 
o0005 


aF 


iF 
\F 


aF 


HHH 


SF 
NXTCH 
KIND 
SETNS 
SETNS 
58 

$6 


' SRCH1L 


EQU05 
SEND 1L 


RA 
§0000 


Se SCANNER CONTROL 
Sle NEXT CHARACTER 
S2e WHAT KIND 


S30 LOOK FOR IJKLMN 


S4e NEXT CHARACTERS 


S5e SEARCH SYMBOL, TABLE 


SIGe TRANSLATE TO GEN CODE> 


) -Y8\-] 
GO807 
0806 
ey YOR 
0810 
0811 

- Owl2 
0813 
08 14 
0815 
0816 
08417 
0818 
0819 
0820 
O82l 
822 


A thtattitiite cuamineiiien chiichidetnts, ctimmaembis iat. simi, smemetitils dtueniailin imeem teers  deieeainidh cdenlinet, abdinte en 
a e aay Cee I ee PT —— 
ne ee ee: Gee pee, pel 


4276 
4479 
4279 
4OuS 
4O4S 
4o4us 
4469 
4UK6 
aang 
8452 
4256 
$45) 
4608 
4U49 
4048 
4087 
4264 


386 
388 
386 
3938 
386 
386 
386 
386 
6B 
368 
985 
386 
385 
388 
388 
386 
3868 


Ceecececececeacec cece kg 


4279 
4412 
4431 
4645 
HAH 
4617 
4420 
4448 
0000 
4804 
OFOO 
4603 
4420 
4201 
4201 
4201 
4950 


4479 
4264 
4264 
4879 
9000 
4469 
4264 
4454 
9000 
4256 
oooc 
4605 
4479 
4264 
4264 
4264 
4928 


TEQ 
SUF 
LDA 
ERS 
CON 
ERS 
BUF 
ADO 
CON 
LOX 
SHR 
LDA 
BUF 
ERS 
ERS 
ERS 
LOL 





aF 
TYPE 
81G21 


HOHH: 
Xo 
TEMPS 
31000 
NOTAG 
OFOO 
BIG6O 
TEMPS 
xOM 
XOM 


XOM 
SCANA 


IE I TN Ty cn ns RR ye ny 


JF 
SCANS 
SCANS 


HOU00 


SCANY 
«SENO 
Q0000 


RX 


38 
SCANY 
SCANS 
SCANS 
GEN 


S20c«e«SEND TO GEN 


Sg > patna eatin er ig i se 


0626 
0827 
0628 
08 29 
0630 
0831 
VE32 
0b33 
0834 
06395 
08356 
0837 
0840 
0641 
0842 
OB45 
0644 
0645 
Owue 
0847 
Oe4e 
0649 
0850 
0852 
0852 
0855 
0854 
0872 
0673 
0699 
0901 
0902 
0903 
0904 
0909 
0906 
0907 
0908 
0909 
0910 
QO911 
0912 
0915 
0914 
O915 
O9 16 
0917 
0916 


Bokhari es tes et ete A a 4 _ E o o : < Nae. Paes ~ 


44U7 
4401 
4665 
4635 
4661 
4315 
4202 
4815 
4258 
4262 
4216 
43422 
4O75 
4230 
4927 
4057 
4Q51 
4052 


4055 


4034 
4055 
4036 
§240 
4652 
4257 


4058 
4321 
43)1 
4253 
4604 
208 
402) 
4275 
4679 
4942 
4408 
4823 
4077 
4430 
4454 
4442 
4458 
4711 
491i 


3865 
388 
688 
88B 
386 
388 
3388 
386 
886 
386 
388 
388 
388 
688 
3868 
386 
388 
888 
386 
388 
836 
388 
gas 
88s 
336 


868 
8868 
388 
885 
38s 
386 
388 
388 
688 
88s 
388 
886 
386 
388 
3866 
385 
8a6s 
366 
388 


ecceccac§coaoccceocccc 


ecocaoccacccocececacoaocacccececsea 


4409 
4615 
4202 
4409 
4813 
4202 
4456 
4456 
OOOA 
4464 
GOOA 
0001 
4227 
4427 
40356 
0305 
0200 
0281 
0365 
0250 
0334 
0218 
09000 
0005 
4609 


0241 
4311 
4664 
4664 
oooc 
4621 
4623 
4627 
4609 
v4oo 
oooc 
4475 
4077 
4282 
0500 
4456 
S711 
4609 
0900 


4461 
4665 
0008 
4661 
4315 
0008 
4258 
4258 
4262 
4216 
4321 
4075 
4230 
OOOA 
4038 
4240 
4249 
4240 
4240 
4240 
4240 
4240 
4652 
4257 
4311 


4240 
S311 
4664 
4664 
4268 
4275 
4275 
4679 
4514 
4468 
$823 
4077 
§B30 
4434 
442 
44859 
G71 
4911 
4273 


SETNS 


NXTW 


NATCH 
NXTN 


SINP 


NWORD 
NOOO? 
NOOO] 
NOOU2 
NOOOS 
NQOOS 
NOOOS 
NOQO0O06 


SHFT 


NOOOs 
-INP1 
3KSW 
BKON 


STX 
LUA 
STA 
LOX 
LDA 
STA 
LOA 
LDA 
LOx 
STL 
ADD 
IIR 
AQDO 
STA 
JMP 
LIRR’ 
LIRL 
LIRS 
LIRS 
LIRI 
LIR’ 
LIRI 
LDA’ 
LOxd 
STA 
OFF 
ON 
ON. 
ON 
LIRI 
CLA 
Cu. 
CLL 
SUF 
TEQ 
LOX 
LDAA 
ERS 
SHR 
ADD 
ERSA 
ATL 
BUFA 
SHR 
$T4 
CLX 
LDA 
SHR 


NEXTC 
NXTW 
NXTCH 
NEXTC 
NXTN 
NXTCH 
NZONS 
NZONS 
RA 
EXIT’ 
RA 
00014 
NWORD 
NWORD 
NOOOS 
KO105 
KO000 
Kooa, 
KO165 
K005vU 
KO1LS4 
KOOL 
Q000 
0005 
NNUMS 
9000 
- 9001 
900¢ 
900U 
KOO41 
gKSW 
iF 
iF 
RX 


wIGOS 
40000 
NNUMS 
0400 
RX 
HAHA 


00005 
0500 
NZONS 


NNUMS 
090VU 


RL 


RL 
iF 
iF 


“INP 


RA 
iF 
iF 
iF 
iF 
iF 
lF 


SMF T 
BKSW 


16 


2F 
00000 


00000 


g0000 


Ne 


Nhe 


N3de 


Ne 


*GET NEAT CHARACTER? ROUTINE 


SUBROUTINE SETNS PUTS BACK PREV CHAK UN CARD 


WAS CHAR PUT BACK 


NXTCH IS SET TO EITHER NATW OR AXATN 


ENO OF WORD 


END OF CARO 


GET NEW WORD 


Uv 19 
0920 
U921i 
U9 22 
0925 
O924 
0925 
0920 
O927 
092s 
0929 
0930 
O931 
O932 
09335 
09 34 
0935 
0936 
O937 
0938 
0939 
0940 
Oval 
0942 
0943 
O944 
0945 
O946 
O947 
0946 
0949 
0950 
0951 
0952 
C954 
0955 
0956 
0957 
O958 
0959 
0960 
0961 
0962 
0965 
0964 
0965 
1043 
10448 
1015 
i0j6 


4273 
4560} 
46608 
4522 
4476 
4228 
4675 


4679 
4Ou 1 
4658 
4462 
4609 
430} 
4473 
4302 
4656 
42dq 
4O59 
4642 
4646 
48U9 
4GUQ 
4349 
4256 


4349 
yiss 
9150 
OI37 
Oi4%} 
QiSa 
Q144 
03487 
0350 
0334 
0155 
003 
0156 
0460 
Wig 
JI56 


B86 
38B 
d86 
388 
ueaB 


386 


uBB 


386 
888 
388 
388 
388 
388 
386 
888 
38s 
6aB 
886 
388 
888 
38B 
385 
386 
888 


J8B 
368 
888 
688 
386 
888 
386 
888 
356 
386 
3865 
588 
88B 
s8B 
338 
386 


ea cn. ce « 


ecoccccccececececca 


65 
37 
20 
35 
70 
OS 
25 


4609 
0400 
0008 
4274 
4228 
4800 
4277 


0900 
4456 
oo0c 
o400 
4609 
0900 
4609 
4254 
4257 
4609 
4030 
Perey 
4257 
4427 
4277 
0400 
OFOO 


O13! 
0135 
o00c 
0139 
O1464 
O1484 
01590 
O151 
9999 
good 
2225 
0154 
QOOA 
2222 
0154 
Gist 


4361 
4668 
4522 
4476 
Q00A 
4302 
4879 


404} 
4658 
4462 
4669 
4561 
4473 
4302 
4656 
4464 
S311 
4642 
4646 
4809 
4329 
4529 
4236 
4254 


Ji33 
0337 
0337 
314] 
O144 
O144 
03487 
9350 
g354 
O349 
023 
0156 
0159 
QOOA 
0356 
0008 


BKOF 


STAN 
NOQOOS 


SHFT4 
SHF TF 
CREAD 
Bul 


cROSW 
CROC 


CHALT 


McC 
&CRD 
-CRD 


STX 
SHL 
RUF 
RSA 
ALD 
LX 
LDA 
ON 
ON 
ON 
ON 
SHR 
STA 
LDA 
SHL 
LOX 
SHR 
STA 
LDL 
STL 
STA 
IIR 
LOL 
STL 
STA 
SUF 
SHR 
SHR 
Hril 
LDA 
Lx 
LDA 
STA 
CLL 
CLL 
LIRI 
H&T 
TIR1 
TES 
HLT 
LOL 
HCC 
HLT 
LOA 
STA 
OFF 
ON 
NEW 
OFF 
ON 


77000 
9000 
9004 


Fe i OP Rage es ay ee gl eee Oe eS ra ee PE ET eT meg) ON Eg ee RE ge ee ee ee gee me ae eee a Ree aa” ae ig ee a eee ie ee ee ee | ee, | ee ee ge Te ee ee EC ee ee ee ee ee ey ee eee ee 


804500 
R& 
SF 
aF 


NIQeEXTRACT NEAT CHAR 


uF 


EXIT’ 
BKSW 


N2O.GET NEW CARD 
CREAO 


SHF TF 
STAN 


N2LeMOVE BUFFERS 
BU 


AU 
CROSW 
ZF 


2B 
HCC 
«CRD 
RA 


RL 


OBSAG 


ne <teniin ane <a ame Tn cabins stencil, ie cient, seein stkeeinet: AMIE onaneinteni omen, mieten. cteiactemtbitn mwertineton ntact eR RN ACO pmceaeietcieh aeRO AONE, Aes mn, suki pista Same iLO | catia, pAADUNnS, tM ci i ee pee 


1017 
1019 
1020 
ud) 
l0g2 
1023 
1024 
1025 
1u26 
1027 
10¢é8 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
loye 
1047 
1046 
Lo4gs 
19050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1056 
1059 
1064 
1065 
1066 
1067 
1066 
1069 
1070 
1073 


Ols1 
9013 
9017 
uses 
0226 
0059 
OL3) 
0353 
Q053 


0058 
oua3 
9088 
O1i4 


0119 
Q156 
0341 
0053 


0058 
3367 
9372 
OZ43 


gois 
0002 
0007 
Qo73 


Q078 
0052 
9057 
0134 


0959 
yd20 
J0e5 
00e9 


054 
0258 
0841 
9045 
0367 





345 
385 
388 
388 
388 
686 
388 
38s 
385 


388 
88s 
368 
3868 


88B 
886 
885 
386 


385 
gae8 
388 
686 


388 
888 
508 
3386 


388 
886 
688 
383 


sas 
386 
388 
386 


668 
38s 
886 
386 
886 


ceca « 


ecoac occ ce coaocc 


eaceacc 


96 
30 
25 


25 
60 
30 
25 
05 


60 
65 
25 
05 


60 
65 
25 
05 


60 
65 
25 
0S 


60 
65 
25 
05 


60 
65 
25 
05 


60 
65 
25 
70 


20 
17 
35 
60 
65 


0000 
0015 
0021 
0226 
4607 
0141 
0335 
0031 
GO036 


0281 
0266 
O1l2 
O117 


0334 
0339 
0051 
0056 


0305 
0370 
0011 
0016 


0200 
02053 
0071 
0076 


0250 
0255 
0152 
0137 


0218 
0225 
0027 
O23! 


0235 
0258 
0045 
0325 
0330 


0013 
Q017 
0823 
0154 
0059 
Q139 
0156 
3033 
9038 


0083 
0088 
O14 
Q1i19 


0136 
O34) 
0053 
9058 


0367 
O372 
0213 
09014 


0002 
0007 
QO73 
0078 


0052 
0057 
0134 
0939 


9020 
0025 
Q029 
9034 


J238 
084} 
0045 
0327 
9332 


CMOVE 


ON 
ON 
HBU 
LOL 
LDA 
TEQ 
LDA 
STA 
LOL 
LDA 
L.DX 
CTP 
STA 
STX 
LOA 
LDX 
CTP 
STA 
STX 
LDA 
LOx 
CTP 
STA 
STX 
LDA 
LOX 
CTP 
STA 
STX 
LOA 
LOX 
CTP 
STA 
STX 
LDA 
t.UX 
CTP 
STA 
STX 
LDA 
ADO 
OFF 
ON 
RUFA 
MTC 
ERS 
STA 
STX 
OWN 
ON 


900< 

9000 
HOQO0 
H10 
HOOd1 


&OP2 
CROS*# 


HOOS1 
HOOS6 


KO082 
KO08S 
HOL1é 
HO117 


KO134 
KO139 
HOOS1 
HOOS6 


K0165 
KO1L70 
HOO11 
HOO1S 


KOOO00 
KOOO5 
HOO7 1 
HOO76 


KO0SO0 
KOO0S5 
HOL3<¢ 
HO137 


KOO18 
KOO02Z5 
LEVEL. 
BAND 
9000 
9000 
33000 


AM 

KO125 

KO130 
90014 
9002 


CROC 


CHI 


03333 


&OPa2. IS A 


°JMP RAS 


eter BEEN eS 18 po wy ws hig By tee a we look (BA nei a Ta ER BS, cae et ee ee Et pie ail De 
aig —_ - Bis Bi Ug a 
tn ek st tt 
ad se ee ee A a a ote eS 


lu72 
10735 
1LO74M 
1075 
1076 
1077 
1078 
1079 
sug0 
1061 
1062 
1083 
190864 
1u865S 
1086 
19087 
1088 
1069 
1090 
1091 
1092 
1095 
1094 
1ug5 
1096 
1097 
1098 
1099 
1160 
4101 
ii1d2 
1109 
1104 
41116 
1117 
1116 
4119 
1120 
Li2i 
Llig2 
1125 
li24 
1125 
1126 
1127 
1128 


do immanent tienes eR tne, cen nti ieee aR anal ain. intl nmin | A ee le Ge, ee, po A ON en pee een 


1992 
3354 


0399 
Q105 
0310 
Ol74a 


0179 
0243 


JG48 
yeds2 
0258 
0452 
0257 
0652 
0190 
0392 
Q194 
0189 
9202 
0207 
Od11 
0019 
Oda7 
0451 
0055 
9059 
O44 
g8u6 


0402 
0407 
9010 
Q0lg 
3217 
0240 
1241 


366 
388 


9386 
386 
388 
886 


886 
686 


Bad 
386 
88B 
aas 
vas 
gas 
Bes 
3eB 
BSB 
83s 
yes 
396 
388 
ass 
88s 
ase 
aaB 
gas 
gas 
aaa 


885 
8es 
88B 
88s 
388 
388 
386 


ce eccace 


cacocaed 


25 
05 


60 
65 
25 
05 


60 
65 


0152 
0157 


0303 
0308 
Oi72 
0177 


0241 
0246 


0050 


0054 
0050 
0218 
0020 
0202 
0392 
3333 
U535 
6200 
0205 
0009 
0300 
0500 
good 
0253 
00357 
1241 
8329 
0200 


0205 
0407 
0012 
0217 
G220 
0022 
0001 


u354 
J359 


0105 
0310 
Q174 
9179 


0243 
9048 


0252 
0257 
0452 
0189 
0652 
0189 
0194 
0533 
9150 
0202 
0207 
Q211 
0019 
0227 
O43} 
Q038 
0039 
Q44y 
9846 
0402 


0407 
9010 
J014 
0217 
4322 
4464 
9000 


&CROZ 
-CROZ 
&CRDS 


-CRKOS 


LDx 
CTP 
STA 
STX 
ON 

ON 

LDA 
ADD 
STA 
PRN 
STA 
PRN 
LDX 
HLT 
STA 
LOX 
LOA 
ERS 
SHR 
SHL 
3UF 
STA 
ERS 
LOL 
TEG 
LOA 
OFF 
ON 

LOX 
CT™ 
ERS 
CLL 
TES 
Lx 
CON 
ON 

ON 

HHH 
ON 

ON 


x9 

1000u 
9004 
g001 


9002 
aoQde 


=“CRD2 
=CrO3 
“CROS 


THETA 
Bul 


& INP IL 
EXITL 
19000 


ee i pee 


1129 
1330 
(41351 
1132 
1135 
1134 
1135 
1136 
1137 
1138 
1139 
1340 
1141 
1142 
L143 
1148 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
4155 
1154 
1155 
1156 
1157 
11586 
1359 
1160 
1161 
Ll6d 
1163 


47é9 
4612 
4676 
4650 
4662 
4416 
4620 
4673 
4502 
“4323 
4462 
4455 
42359 
424) 
“au? 
476] 
4702 
§454 
4307 
496} 
4308 
4312 
4864 
4654 
4657 
45i2 
4314 
4453 
$7i2 
4457 
4610 
4515 
4318 
4270 
¥9U2 


B85 U 


356 
366 
385 
3388 
388 
388 
388 
386 
886 
886 
3865 
36s 
385 
3388 
388 
886 
388 
888 
388 
B88 
888 
388 
588 
386 
336 
5a8 
368 
898 
3868 
888 
3865 
368 
388 
388 


eceecccccoccenverucaccceccecacececaecececece ce 


4820 
4624 
4628 
4209 


. 4464 


0100 
8620 


4325 


4420 
0600 
OOHH 
o00c 
4201 
1420 
4209 
0000 
use 
9999 
0008 
4624 
OO0A 
4864 
0002 
4457 
O00C 
4310 
0001 
0600 
0200 
0001 
o00c 
4515 
4270 
9000 
462u 


4612 
4676 
4630 
4662 
4416 
4620 
4673 
4503 
4323 
4482 
4635 
4239 
OOOA 
4447 
4761 
4702 
4307 
0000 
4961 
4976 
4312 
OOOA 
4654 
4657 
4Si2 
QOOA 
4454 
4712 
4702 
46106 
4515 
4318 
QO0A 
4902 
4964 


SRCH 
SRCH1 


-SCKM 


&SCRM 


STA 
STX 
LDA 
ADD 
STL 
SHL 
ATL 
MUL a 
ADD 
SHR 
LIR 
ERS 
ADD 
LIR} 
LOL 
LDAL 
ADD 
CON 
LDA 
LDxX 
LOX 
ADD 
LDA 
TEQ 
LDA 
ADO 
LOA 
SHL 
SHR 
IIR 


TEMPS 
TEMPS 
MZERO 
TEMP 2 
eExita 
0100 


10101 
TEMPOS 
060u 
OOnn 
RX 


z900u 
TEMP < 
000V 


99999 


Ru 
TEMP 4 
RA 


0002 
ar 
RX 


0001 

060uU 

0200 

0001 
RX 


0000 
TEMPS 


SRCH1 


QO1y10 


RA 
iF 


=SCRM 
90000 


INS9S 
RA 
RA 
is 


RA 


EXiTi 


Te 


Tle 


T2e 


T3. 


THe 


SYMSOL TABLE SEARCH. 


SCRAMBLE 


IS STACK EAHAUSTED 


DOES SYMBOL. MATCH 


GET TAGLE ENTRY 


———_ 


1169 
1la8 
1189 
1290 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1z03 
lzus 
1209 
l2ye 
1207 
1208 
1209 
1210 
1212 
1zZ12 
1213 
1214 
1215 
1zZ16 
1217 
1216 
1219 
1220 
1221 
lza2 
1z23 
1224 
1225 
1220 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 


4HUS 
4876 
4929 
4253 
4257 
u440 
4ON4 
4048 
4352 
§255 
$aau 
4455 
4299 
4912 
4640 
4243 
4295 
4352 
4647 
460} 
4IU6 
4715 
4869 
4752 
42469 
4952 
4453 
4437 
4452 
4439 
4269 
4616 
4653 
4306 
4459 
4657 
44H) 
4495 
4653 
4087 
4287 
4659 
4692 
“aug 
4U43 
4853 
4853 
43uU3 
464) 


886 
385 
386 
383 
638 
8388 
385 
gas 
g36 
388 
838 
388 
886 
685 


B86 « 


688 
388 
388 
386 
336 
686 
886 
386 
385 
368 
888 
338 
888 
3868 
3868 
386 
38s 
686 
3868 
386 
38868 
388 
38a 
388 
388 
886 
S86 
386 
886 
336 
386 
385 
888 
386 


Ctcerccee ceoeeceaoerc ecedcececceceececeececececececoecaocececeeecec ecu au 


4beg 
4929 
4631 
4655 
S480 
4292 
4095 
4600 
4255 
4292 
4au4g 
4507 
4912 
1212 
4640 
4295 
0000 
4635 
8249 
0008 
0600 
4667 
00090 
0400 
0000 
46351 
000R 
4439 
0000 
0001 
S464 
0000 
8506 
000c 
4655 
C000 
4445 
4631 
0008 
4655 
4659 
8659 
04800 


0085 


9000 
0000 
0000 
9043 
4643 


3876 
¥929 
4233 
4237 
4640 
4644 
4648 
4352 
8455 
4844 
4649 
4259 
4514 
§455 
4243 
QOOA 
4552 
4647 
4601 
4306 
4715 
4869 
4752 
9900¢ 
4952 
4433 
4437 
4690 
0004 
UH6y 
4616 
4653 
4556 
4459 
4637 
OUQ) 
u495 
4653 
4087 
4287 
$641 
4692 
8449 
4631 
4853 
$464 
4303 
4641 
QOOA 


INS 
INS9S 


REM 


SRe 
ARI 
BR 


tei coast wales seme initia intial, RS, REE tM, nei AURNSRERINGN AES ake ARATE pe, eatin ace Re ma 


$Tl 
CLL 
STA 
LDA 
TES 
LDA 
SUB 
LOL 
TGR 
STA 
ATL 
LOAA 
LOL 
HLT 
ATL 
A400 
LOA 
STA 
LOA 
ADD 
SHR 
ERS 
SUF1 
SHR 
STA 
LOX 
LDA 
ADD 
STLA 
STX 
STL 
LOLL 
CLA 
TEQ 
LOX 
TIRI 
BUF 
STA 
LDA 
STL. 
LOL 
ATL 
SAL 
ERS 
STA 
STX1i 
LDAS 
ERS 
SUF 


axMITa 


TEHP 1 
AVATLL 


MEMU 
KON2 
MEML. 


MEMU 
01020 
laid 


0000 
AVAIL 
iF 
RL. 

0600 
xac 

0000 

0400 

000u 
TEMP) 
RL 
lF 

09000 

oo0l 
EXIT. 

000u 


RX 
AVAIL 
000u 
iF 
TEMP) 
RL 
AVAIL. 


0400 
XM 

0000 

0000 

0000 
XM 


INS9Y 


lF 


2aF 
JF 
00000 
ALARM 
28 
RA 
3F 


KX 


RA 
EX TL 


BK 


TEMP 


ExXITIL 
aRi 
aR 

RA 


Lie 


Lae 


L3e 


L4. 


LINKED MEMORY SUBROUTINGS. 
IS aVali, EMPTY 


MEMLIMEMU 


REScRVE Two 


1° FULL 


INSERT ITEM 


ASSUMPTION MADE THAT RA WAS POSITIVE 


LLOeIS STACK EMPTY 


LileREMOVE ITEM 


LizgeMAKE LOCATION AVAIL 


12306 
1237 
1236 
1239 
L240 
1241 
l2u2 
1245 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 


§645 
4846 
4205 
4659 
a7ia 
asia 
4280 
4265 
4458 
4ay2 
4296 
4250 
4854 
4706 
8309 
4310 
4038 
4342 
4896 


388 
386 
686 
388 
388 
388 
386 
888 
386 
886 
386 
8a6 
38B 
386 
888 
383 
388 
8a 
8668 


08 
a9 
30 
25 
88 
25 
70 
82 
30 
88 
30 
85 
70 
99 
OW 
O4 
25 
38 
O4 


0000 
0000 
oooc 
4362 
0000 
4628 
oocc 
S433 
4290 
0001 
4298 
0001 
4706 
9990 
0002 
0005 
4490 
0004 
0001 


4848 
0008 
4659 
714 
4518 
4280 
4285 
4458 
4892 
4296 
4250 
4954 
4309 
0000 
0002 
0003 
4342 
4496 
0001 


KINO 


#KINO 
AKIND 


LIRI 
LDA! 
LOL 
LDA 
TEQ1 
LDA 
4&DD 
TEOQ 
DLA 
TEQ1 
LOL 
TEQI 
Abo 
CON 
JMP 1 
JMP 1 
LOAA 
TEQ] 
JMP 2 


000Nu 
0000 


LITs 

000Vu 
MZERO 
RX 


00005 
9001 
KON30 
0001 


99999 
0002 
0003 

Q0001 
0004 
oool 


Ru 


LF 


0000} 


“KINO 
00000 


OQy0A 


KIND) SUSROUTINE IS SeWAY BRANCH TO 
Rl IF CHARACTER IS SLANK 

RAiel IF SPECIAL CHARACTER 

RBil¢2 NUMERIC 999990000N 

RBi+3 ALPHABETIC 

RG1+4 DECIMAL POINT 


1255 
1256 
1257 
1258 
1259 
1260 
l1Zeoi 
1262 
1265 
1264 
1265 
1266 
12o7 
1268 
41269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1276 
1279 
1280 
1281 
l2g2 
1285 
1284 
1265 
1286 
i2Zs7 
1288 
1289 
1290 
1291 
1292 
i295 
1294 
1295 
1296 
1297 
12968 
1299 
135900 
151 
l3o2 
13635 


4655 
4206 
4562 
4915 
4718 
4271 
4474 
uaze 
448) 
4485 
4268 
4762 
44O6 
HB) 
4838 
4685 
4523 
4078 
4487 
4064 
4962 


8052 
4054 
4365 
“u9ig 
4263 
4606 
4060 
4463 
4062 
4603 
4317 
Q@7y 
4803 
4316 
49063 
4263 
4304 
49508 
4313 
4465 
4326 
4379 
4565 
4168 
4722 
4061 
4313 


3838 
383 
388 
336 
388 
386 
388 
586 
SAB 
88B 
J8B 
688 
38aB 
388 
388 
388 
Bs 
8868 
38B 
368B 
386 


386 
385 
388 
883 
386 
38, 
388 
388 
838 
368 
388 
386 
3BB 
386 
388 
388 
3865 
388 
388 
3s86 
388 
388 
38B 
386 
336 
388 
386 


e\ecauc aoeoceoceaoceccecececeeaceaccce 


50 
25 
31 
82 
06 
08 
32 
82 
32 
82 
60 
0G 
25 
OG 
OG 
TS 
Ja 
37 
20 
O53 
26 


07 
06 
60 
65 
26 


30 
08 
25 
37 
20 
60 
07 
70 
60 
25 
30 
82 
25 
30 
62 
30 
82 
30 
B82 
30 
25 


4464 
4209 
4915 
4464 
4271 
0000 
0100 
8261 
0100 
4838 
4209 
0002 
$209 
6050 
0051 
$420 
0200 
0600 
ooo0c 
4209 
4365 


0001 
4962 
4412 
4209 
4666 
4420 
4463 
#060 
4209 
0100 
Q00C 
4209 
Goo! 
420 
4651 
4802 
4206 
4315 
4631 
G4ue4d 
4179 
4415 
4918 
4470 
4325 
4315 
4412 


4266 
4562 
4915 
4718 
427) 
4474 
4828 
4G8} 
4485 
4288 
4762 
4466 
4u74 
4685 
4685 
4523 
4078 
4887 
4464 
4962 
4365 


4365 
4962 
8914 
4263 
4666 
4060 
4202 
$205 
4663 
4317 
UG7y 
4863 
4316 
4666 
4283 
$304 
4508 
4961 
4483 
4326 
379 
4565 
4168 
4722 
461 
4467 
4364 


NOML2Z 


Va ND oe 


E0014 


EQ002 
Eo00s 


EQO10 


E0O12 


E0015 


EoQl.k 


STL 
LDA 
aan 
TEQ 
CLX 
LIRI 
SHR 
TE 
SHR 
TEQ 
STA 
IIRL 
LDA 
LIRL 
LIRI 
SUB 
SHR 
SHL 
BUF 
LDX 
CLA 


IIR 
CLX 
STA 
STX 
CLA 
STA 
LOL 
LIRI 
LDA 
SRL 
SUF 
STA 
IIR 
ADD 
STA 
LDA 
LOL 
TES 
LDA 
LOL 
TEO 
LOL 
TES 
LOLA 
TEQ 
LOL 
LOA 


EXITS 
TEMP «< 


EXIT. 


000V 
0100 
LF 
9100 
2F 
TEMP 2 
0002 
TEMP < 
0050 
0051 
TEMPS 
0200 
0600 
RX 
TEMP2 
iF 


0001 
<8 
TYPE 
TEMPe 
iF 
TEMPS 


E0010 
TEMP2 
0100 
RX 
TEMP a2 
0001 
TEMPS 
TEMP i 
LEOFF 
LES 


TEMP A 
LITS 
EROUT 
LITs 
HROUT 
00001 
MROUT 
SF 
TYPE 


1F 


15 
SF 
SF 


EXITI 


aF 


iF 


E0010 
NXTCH 
KIND 


18 


EQU11 


00004 
EQULL 
SETS 





Ce CONSTANT SCANNER 
NORMALIZE IS USEO TO CONVERT TO 
FLOaTING POINT FORM 


Clie SET TYPE INTEGER 


C2e SET FLOATING TYPE>s 


C3. NEXT CHARACTER 


C4e WHAT KINO 


CSe E HOR M 


Coe ADJUST FOR TYPE 


nc eA pcmeetaaiti emaman Ale: SANGER shen, Sao, 4nd, nate a i ti fee ee pi i yp pe. 
~ “ ~ 


1504 
1306 
1307 
1308 
1309 
4310 
1311 
1312 
1313 
1314 
1315 
i316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
13268 
1329 
1330 
1331 
1332 
1333 
1334 
1339 
1330 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 


4304 
4317 
4670 
4320 
4713 
426 
4402 
4708 


4922. 


4933 
4316 
4919 
4319 
4568 
4671 
4725 
4179 
4704 
4747 
4917 
4719 
4065 
W167 
4066 
4450 
47U3 
4707 
4660 
4765 
4067 
4069 
4008 
487) 
4965 
4367 
4460 
45U3 
4172 
4945 
4070 
4372 
4O7Q 
4O73 
4071 
4072 
4563 
4306 
4526 
4572 
4175 


ase 
388 
38B 
aap 
8B 
BBB 
888 
88B 
398 
gee 
388 
388 
ase 
eB 
88B 
gas 
88B 
eB 
388 
eB 
eB 
888 
ase 
Ey) 
gaa 
g8B 
8aB 
aap 
388 
388 
ey) 
gaB 
3aB 
B88 
aae 
386 
388 
eB 
38B 
388 
gee 
388 
ase 
8B 
388 
aaB 
aes 
388 
388 
38B 


wGKOSSKCEGCLCECCCHECCECOCECCGCCGCCaCCcCeecacccoceccecoccocaotcaotaoce 


a1 
82 
30 
25 
37 
30 
30 
50 
25 
Jl 
82 
25 
07 
a7 
20 
60 
25 
87 
30 
30 
60 
30 
068 
25 
82 
25 


25 
82 
350 
30 
30 
30 
25 
03 
25 


26 
60 
30 
08 
30 
30 


25 
37 
20 
25 
36 
20 


4517 
4670 
4206 
4209 
0400 
4708 
4768 
4420 
4209 
4516 
4319 
4412 
0002 
04800 
4723 
4412 
4412 
4717 
4064 
B719 
4209 
4167 
8065 


4298 


4503 
$305 
4460 
4365 
4505 
4505 
487 1 
4871 
4515 
4367 
7000 
4563 
4429 
4925 
4624 
4372 
4070 
4526 
4526 
4526 
4624 
0100 
o00c 
4420 
4175 
4624 


43417 
4320 
4655 
4713 
4206 
4260 
4260 
4922 
4913 
4516 
4519 
4564 
4564 
4671 
4725 
4472 
4764 
4917 
4407 
4655 
4065 
4202 
4205 
4450 
4703 
47097 
4660 
4765 
4069 
4407 
4807 
4407 
4965 
4514 
99900 
4503 
4172 
4925 
4070 
4202 
4208 
4407 
4407 
4407 
4563 
4368 
4925 
4S72 
4175 
47 26 


LES 
LEOFF 


EROUT 


E0OLS 


E0016 


E0017 
E0019 
FOO18 
CALRM 


ei | 


£o0¢0 


rFoo2as 
Fo0d3 
FOOd! 
EF °:O22 


CLL 
TEQ 
LOL 
LDA 
SHL 
LOL 
LOL 
STL 
LDA 
CLL 
TEQ 
LDA 
IIR 
SHL 
BUF 
STA 
LOA 
TGR 
LOL 
LOL 
STA 
LOL 
LIRI 
LDA 
TEO 
LOA 
TEQ 
L.DAA 
TEQ 
LOL 
LOL 
LOL 
LOL 
LDA 
CON 
LOA 
STA 
CLA 
STA 
LOL 


LIER’ | 


LDL 
LOL 
LOL 
LDA 
SHL.2 
BUF 
LDA 
CAA 
3UF 


LESW 
TEMPe 
0400 
1lF 

LF 

TEMPS 
TEMP < 


LF 
TYPE 
0002 
O40” 
KONeS 
TYPE 
TYPE 


E0014 
TEMP ea 


E0015 
KONSO 
oF 
LITA 


1F 
NOMLZ 


LESW 
cOnST 
CONST 


eF 
eF 


SENO. 


iF 

SETNS 
NOML Z 
E0015 
NXTCH 
KIND 


o000d 
E0019 
SETNS 
SETNS 
SETNS 


ALARM 
00000 
6F 


E0UZO0 
NATCH 
KINO 
SETNS 
SETNS 
SETNS 
2F 


18 


C7e IS IT A LABEL 


C8e LOOK UP IN TASLe 


CideNORMALI 2ZE 


CLIeNEXT CHARACTER 


Cl2eWHAT KIND 


BAD CONSTANT 


CISeNEXT NUMBERS 


Cl4eADJUST EXPONENT 





1355 
1556 
1357 
1358 
1359 
1360 
i360 
1562 
1565 
1364 
1365 
13566 
1367 
1368 
1369 
1570 
1371 
1372 
1373 
1374 
1375 
1576 
1577 
1378 
1579 
1380 
13561 
1562 
13545 
1384 
8365 
1386 
4587 
1388 
1569 
1390 
1391 
= 1592 
1395 
1394 
1395 
1596 
1397 
1398 
1599 
1890 
4801 
1802 
= 1495 
14g4 


4726 
4067 
496g 
4963 
4716 
agig 
4763 
4260 
4916 
4320 
4375 
4278 
44BO0 
4634u 
4436 
4565 
4478 
4y772 
4366 
4169 
4923 
4369 
4306 
4708 
G173 
466} 
8656 
429) 
4e49 
4903 
43510 
4373 
U918 
4674 
4678 
4477 
4766 
4569 
4573 
4966 
4769 
“97S 
4969 
#176 
4878 
4874 
4326 
4662 
4324 
4773 


388 
388 
38B 
8a 
33B 
388 
388 
3ee 
388 
38B 
388 
388 
386 
3858 
Bae 


B85 : 


388 
388 
388 


88s. 


68B 
388 
88B 
688 
8868 
388 
Bab 
386 
Jas 
866 
886 
g88 
688 
385 
388 
338 
386 
38B 
368 
368 
388 
388 
386 
388 
386 
385 
385 
8368 
8B 
388 


aoc cececaaocececcececceceaectcacecccececceccececeaececeaccacceacec 


QO800 
4209 
4209 
S716 
4206 
4209 
4206 
4209 
4368 
4625 
4278 
SEBO 
0008 
4436 
0000 
4478 
4420 
4209 
4169 
4972 
4016 
4209 
8768 
oooc 
0500 
QO0A 
OOOA 
0500 
Qooc 
0400 
4420 
0900 
4972 
4926 
4675 
4311 
4569 
4420 
4209 
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386 
388 
388 
d36 
3868 
885 


386 


Geeeaccecoaoecauaoncecececeonacaeccocecacceaooccececeacacceceocacec 


a 


0027 
4335 
454 | 
4696 
4499 
0008 
0027 
0231 
O231 
V251 
4955 
4368 
4340 
4928 
QOOA 
0800 
4301 
HHH 
0008 
4$79 
4579 
0008 
4740 
000c 
4201 
4928 
O00 
S617 
0100 
4301 
4928 
4261 
4928 
0002 
6490 
&72u 
4579 
4S79 
OOOA 
4928 
0800 
4225 
Qoo00c 
4869 
8201 
06002 


4740 


4983 
4489 
4693 
4896 
4955 
4955 
468 
v00¢ 
4884 
4134 
4958 
4340 
4893 
4334 
4588 
4699 
4936 
4540 
4544 
4534 
4734 
4788 
4942 
4346 
4359 
4936 
4940 
4934 
4988 
4388 
4384 
4559 
4584 
4889 
4546 
4784 
4336 
4488 
4190 
4386 
4697 
4586 
4686 
4786 
4986 
9000 


4192 


FARNL 


FILUP 


SFIL2 


-FIl1 


&FIL2 


30TO 


&GOoTo 
-GOTO 


GOT! 
JMPRE 
&GOT: 


LDA 
ADO 
LOL 
TEGO 
TGR 
SUB 
STA 
ADD 
ADD 
STA 
CLA 
STL. 
ATL 
LDA 
LOx 
SHL. 
ADD 
IIR 
ERS 
BUF 
STA 
LOA 
ERS 
BUF 
ERS 
STA 
LDA 
ERS 
SHR 
ADO 
SUF 
ERS 
STA 
LOA 
SHR 
ERS 
SUF 
STA 
Lux 
LDA 
SHL 
ADD 
LUA 
LDA 
AOD 
JMP 
Fav 
LDA 


LEVEL 
INCRE 
KN200 
LF 


RL 
LEVEL 
8 aND 
aAND 
BAND 
268 
~FIlLe 


RWORD 


0800 
BIG9U 
HHH 


1wORD 
IwoRD 
RL 
X1 
RX 
xomM 
RWORV 
RL 
XO 
0100 
BYGIO 
RWORD 
XOM 
RWORD 
RL 
0400 


IwORV 
IWORD 


RWORG 

080u 
BIGIy 
RX 
NxLOC 
XOm 
RL 
“GOT4 
X1 


aF 
eF 


RX 


~FIL1 


“Fill 


“FIL 


“File 


«GOTO 
FILUP 


~SoTh 
000 


+05 


le 


FINY AND RESERVE NEXT LUCATION 
IN PROGRAM INTERLACE 
RX 1S EXIT¢ RA GETS OeLELLOOOO 


FILL SLANK ADDRESSES IN PREV INSTRUCTION 
RA # PLACE TO FILL wITRe FORM ORLLLLOUVOU 
RL # EXIT LINE. 


"G0 TO" SUBROUTINE 
RX 1% OROQOOOOOOe RL JS EXIT LINE. 
IF PREV INST HAS BLANK ADDRESS + MERELY FILUP. 


ELS& IF NXLOC Is NONZEROs 
INSTRUCTION 


ASSEMBLE A JMP 





1787 4192 3888 5 35 gooc 47Hé FRS RX 

1786 4746 38B 4 60 4Y6eu 4187 STA TEMPS 

17a9 4187 3S8B2 75 Oooocr 4776 SUB AX ASAS1 

1790 4927 388 J 30 4196 4:48 INCUO LoL UNIQU UNIQU TO RL 

1791 $148 33B8B J O07 OOO!1 4501 TIR 0001 INCREMENT UNIQU FY } 
1792 4501 888 0 70 o008 4387 ADD RL EXIT TO RX 

17953 4357 3388 0 60 4196 9000¢ STA UNIQU RX 


ah. deeencifiniee bth, nahin. selene aitatialeniad. ann sacieetiesinmiaiemid sthmemetn -aleaiiminne  aipinbionsoa, iniatetinadtn _SMAROIRASSN,  sumacimmmtas once, Jatin A Ma, RN A, SSN, im, ae acy, sccm RN, pet, nA oN, eS, ts, a i Se tice 


1794 
1601 
ibud 
1805 
13804 
1805 
1806 
1807 
1606 
lsug 
1810 
teil 
isi2 
1815 
1814 
1645 
1846 
1817 
1618 
1619 
1620 
162) 
i822 
1825 
1824 
1825 
1826 
1827 
1628 
1829 
- 18350 
1651 
1652 
1835 
1834 
1635 
1836 
1657 
1856 


a 


474g 
4787 
4989 
4339 
4545 
4897 
4359 
4343 
4946 
4899 
4739 
S941 
401g 
4959 
U94G 
4543 
4169 
4590 
4789 
49689 
4743 
Q347 
Y74S 
4348 
4390 
4790 
4943 
4010 
4990 
4396 
4349 
4395 
#391 
4349 
439} 
a748 
479) 
4945 
yO] 


3933 
8sB 
386 
338 
386 
386 
J86 
88B 
383 
336 
388 
886 
888 
3388 
J88 
388 


Bes 


386 
388 
38s 
58s 
886 
ass 
388 
388 
388 
386 
888 
388 
888 
386 
366 
388 
386 
388 
388 
BBS 
386 
385 


65 
70 
$0 
35 
30 
60 
35 
77 
06 
J2 
70 
00 
37 
70 
60 
25 
JT 
60 
05 
05 
30 
08 
07 
35 
20 
08 
77 
25 
70 


39 
07 
30 
70 
60 
25 
20 
64 
00 


8015 
4605 
4O14 
00453 
4897 
4651 
47) 
4345 
4899 
0800 
4941 
4010 
0700 
4191 
4191 
4651 
0400 
4209 
OOOA 
OOOA 
4745 
4701 
HMrHH 
4209 
4408 
1749 
4945 
8651 
4392 
HHHH 
0003 
0001 
4196 
0008 
4196 
4631 
0008 
0000 
4015 


4787 
4$89 
4339 
4545 
46u} 
4539 
4343 
4946 
4899 
4739 
000A 
0000 
4939 
4944 
4Su3 
4189 
4339 
4789 
4743 
4743 
4347 
“UUs 
4348 
4390 
4790 
4ouy 
WoL 
4990 
4395 
4349 
4391 
439) 
4548 
4$9) 
4748 
479) 
4945 
4897 
4ois 


ASIN 
“ASNG 


ASGNI 


cooos 


SASNS 
TRSW 
TRON 


TROFF 


CQ000 
&ASNE 
“ASNI 


coool 


STX 
ADO 
STL 
ERS 
LOL 
STA 
ERS 
ATL 
CLXx 
SHR 
ADD 
JMP 
SAL 
ADD 
STA 
LDA 
SHL 
STA 
LDXx 
LOX 
LOL 
LIRS 
IIR 
ERS 
BUF 
LIRI 
ATL 
LDA 
ADD 
IIR 
ERS] 
TIR 
LOL 
ADO 
STA 
LDA 
SUF 
STAI 
JMP 


C0005 
BIG6O 
CO0048 
AM 


oF 
TEMP 1 
XH 


0400 


coo00 
0700 
TEMPS 
TEMPS 
TEMP 1 
0400 
TEMP« 
RA 
RA 
TROFF 
TEMPS 
KAHH 
TEMPe 
BrGOL 
w9999 


TEMP 1 
B81G70 
HHHH 
0001 
0001 
UNTQU 
RL 
UNIGQU 
TEMP i 
RL 
900VU 
CQ005 


. te 150¢ ASIGN SUBROUTINE 
Pcie I50e«IS IT A TEMP 
1 
ASGNI 
ar 
ISLeWHAT 13 TABLE ENTRY 


RA 
0000 


18 
TRS 
LF 
iF 
IS2eREINSTATE TemP 
INS 


C0005 
“ASN1 


iF 
iF 


66 





a ee a - 
- 


1u39 
1650 
41851 
1852 
48553 
1854 
1655 
1856 
1657 
1656 
1659 
- 1860 
1661 
1862 
18665 
1864 
1686S 
1666 
1667 
1866 
1609 
- 41870 


4330 
4193 
4547 
4392 
uS96 
4350 
4948 
4792 
4796 
4393 
49350 
4992 
4595 
4996 
4901 
UTdS 
4993 
4747 
4594 
u794 
4994 


god 
38B 
336B 
388 
3a8 
388 
3486 
338 
388 
B88 
38s 
368 
385 
386 
836 
sas 
888 
88s 
388 
388 
8968 


coecaeacecncecocecacacecacqanecu 


4991 
4195 
4617 
4194 
4gus 
4991 
4750 
4394 
4991 
0400 
4992 
4992 
4394 
0100 
oooc 
4624 
0008 
0400 
4724 
4750 
4195 


4193 
4547 
4592 
4596 
4550 
4393 
4792 
4796 
4593 
4950 
4393 
4595 
4996 
490} 
4793 
4993 
4747 
4594 
4794 
4994 
4776 


ASMed 


ST 
STL 
ERS 
STA 
LOL 
LDA 
STA 
STX 
LOA 
SAL 
LDL 
ATL 
LDA 
SHL 
BUF 
STA 
LDA 
SHR 
ERS 
SUF 
LOL 


TMP1YU 
EX1ITs 


TEMP 7 
iF 

TMP 10 
TEMPS 
TEMPS 
TMPIO 
0400 


TEMPY 
0100 
RX 
TEMP4 
RL 
0400 


TEMPS 
EXITS 


ASM25 


ASM2Z5 


ASHS1 


Ie 125, ASSEMBLER <<. 
T250e«ASSEMBLE 2e5 ON M 


I26eASSEMBLE 205 ON C 


I27e¢ASSEMBLE 3 


iain amataechitns, elictiaastne coats oteeein ca SS AR oN one RN Neh. ARR ARUN emt mn iene ce, men. ane —camamncenn, piiadiaameams _jmmaDapeeainn, -aasBAetnan,, giteaminbaaein, gpa, perediNihhen, paceiAeae, plaints IEE, fMRI A pO GN poe eR RR. Lem smn emt SERA SRNR “ARE, RR, A ORE | POLS STR, SOC 


1671 
1872 
ls73 
1875 
1876 
1677 
1878 
1879 
1830 
1681 
1842 
1885 
1884 
1885 
1886 
1887 
1888 
18389 
1690 
1891 
1692 

~ 1695 
1894 
1895 
1896 
1697 

= 1698 
1899 

+ 1990 
19ol 

tt 1992 
#§ 1995 
§ 1904 
§§ 1905 
tt 1906 
§ 1907 
19u8 

$$ 1909 
# 1910 
#§ 1941 
§# 1932 
1915 
1914 
19145 
1946 
41917 
1938 
1919 
1920 


- 
“~~ = 2 @ @ oe ae 6 


a a i ce a ee ce ar ee ne en ae at 


%I93 
4795 
4995 
49u7 
4398 
4397 
4Sd9 
4597 
4351 
8197 
4598 
“TID? 
4751 
S749 
4997 
4798 
4951 
4998 
4949 
4199 
4080 
4399 
4O6)1 
4799 
4999 
Qo82 
oOoNy 
48062 
J866 
3090 
4065 
00687 
9291 
9245 
4399 
9003 
O64%3 
0047 
QO49 
0203 
J222 
9426 
JBu3 
y2e249 
2052 
9457 


336 
688 
386 
388 


aeB . 


386 
3365 
388 


86 i 


388 
388 
888 
388 
888 
388 
386 
388 
38B 
386 
888 
588 
388 
3aB8 
385 
3386 
388 
386 
388 
888 
386 
388 
886 
386 
888 
886 
386 
38a 
3868 
388 
388 
388 
886 
J88 
386 
336 
3868 


eccoaorecceaceccecccacaeccccaeaceaeanceccctecceraoccecaceccccec¢ 


35 
60 
70 
99 
05 


00 
06 
25 
20 
30 
77 
25 
75 
29 
77 
32 
35 
7G 
25 
30 
Os 
30 
25 
ai 
25 
03 
25 
Q5 
32 
30 
QS 
a5 
20 
350 
65 
05 
30 
09 


30 
30 
25 
82 
70 
82 


0045 
4191 
4947 
0001 
4016 
4S49 
0098 
4351 
Gi191 
41940 
4551 
S797 
4997 
0008 
0000 
4798 
0900 
4413 
4199 
0008 
8195 
4194 
4195 
4999 
0065 
0044 
0400 
0084 
0268 
0600 
0087 
0289 
0045 
4194 
0201 
4191 
0445 
9049 
0001 
4770 
0024 
4191 
4247 
1852 
000A 
0060 


4798 
4998 
4397 
9000 
4197 
4597 
9000 
$35) 
4197 
9008 
47997 
475) 
UTUS 
0004 
4798 
4951 
4998 
494g 
Q00A 
4980 
4399 
4599 
4799 
4S14 
9000 
4$14 
0000 
0886 
y990 
3099 
Joss 
y29i 
0245 
455) 
0003 
645 
yoa?7 
O7E4 
9203 
jJ222 
3426 
3249 
a 752 
34587 
3260 


ASM<c5S 


S&SHF 1 
~HFd 


“HF 2 


&HF < 


F aad 


Fele[ si 6) 


vo001 
EEE 


BME 


¥o0002 


VO0OO0O5 


ASKaS 


ERS 
STA 
ADD 
CON 
LDX 
AUD 
CON 
CLX 
LDA 
SUF 
STL 
ATL 
LDA 
SUB 
LDAS 
ATL 
SHR 
ERS 
ADD 
LDA 
LOL 
LOX 
LOL 
LDA 
CON 
LDA 
CON 
LOAA 
LDXx 
SHR 
LOL 
LOXA 
ERS 
BUF 
STL 
STX 
Lux 
LOL 
LOX) 
$TX 
STL 
LOL 
LDA 
Ti. 
ADO 
Ted 


AM 
TEMPS 


9900u 
LITI 


00009 
TEMPS 


TEMP? 
EXITS 


10900 


aH 2 
§0000 


iF 
RL 


Ra 
&F 


RA 
voooo 


ASM28 
EEE 

ALARM 
$0000 
ALARM 
00000 


67814 


LOOP 1 
LSw 
00QN00 
EXITS 
oF 


ASIGN 


Ie 130-4 ASSEMBLERS 225 AND 248 


I50eWHAT ADDRESS 


ISLeWHAT KINO OF OPERAND 


TREAT TEMP STORE (4) AS SIMPLE VAR(O) 


EXP # ERROR 


BAD MESS 


TS5eASSIGN VARIABLE 


IS60eCHECK OP CODE 


ee ee, ee ee Te ee ee Wage Ag tk ge ge 


i9ei 
lVe2 
1925 
l9g¢e4% 
1925 
19ge 
1927 
19286 
i949 
L930 
1933 
1932 
19335 
t i939 
§ 1938 
$ 

] 


- 


oe 
= eo ae Ole lo ee oe ae 


1936 
1937 
1936 
+§ 1939 
§ 1940 
#? 1942 
§ vue 
§ 1943 
' 1944 
$3 1945 
1 1946 
$3 1947 
$$ 1948 
; AS4D 
§ L950 
t 1951 
| 1952 
$ &§953 
§ 1954 
§ 1958 
§ 1956 
§ 1957 
' 1958 
1959 

§ 1960 
#% 1961 
1962 
1965 
1964 
1965 
1966 
1967 
1968 
1969 
1970 


J200 
Qius 
0309 
o314 
0517 
gi2zo 
04322 
Q060 
Q319 
O317 
1852 
0109 
0320 
Oldyg 
Q4u3 
0210 
9626 
9050 
8015 
v219 
9065 
Q068 
y2o8 
0603 
026 
0809 
Q803 
Q607 
0610 
12463 
Q261 
1809 
0419 
9442 
1645 
0256 
0259 
14u3 
o0uU8 
9622 
er ra} 
9626 


g445 
3228 
3158 





386 
888 
683 
388 
38B 
388 
3888 
JduB 
338 
386 
356 
686 
386 
3888 
388 
888 
386 
BSB 
358 
888 
388 
388 
3868 
388 
388 
385 
368 
886 
3865 
388 
386 
588 
388 
383 
386 
388 
388 
886 
888 
B85 
38S 
888 


388 
385 
386 


293 
60 
25 


4604 
0109 
OOOA 
O317 
0001 
0322 
4986 
0317 
0121 
0002 
0001 
0000 
0201 
0000 
0400 
4724 
0028 
4623 
0417 
4O13 
0068 
QO0A 
0001 
0206 
0809 
0201 
0008 
0410 
4191 
4408 
0063 
4667 
ou22 
4191 
460O4u 
0259 
0001 
0805 
0201 
o224 
0826 
2333 


9001 
4770 
O00F 


0106 
0309 
O314 
9517 
9120 
0124 
9138 
Q319 
4556 
0320 
0320 
0320 
0124 
Q403 
9210 
0626 
JyO30 
4870 
0219 
0065 
9268 
0072 
0603 
0206 
1g09 
gs03 
0607 
9410 
1243 
9261 
4$370 
9419 
J622 
1643 
3256 
0622 
1463 
9008 
4556 
9072 
9228 
6S23 


U228 
9138 
u3s4e2 


Ute Sb ty 


coous 


NPAR 
NPAK t 
NPARZ 


LO4 
TES 
ABD 
Ten 
IIR 
LOL 
Luk 
LOL 
LOA 
IIR 
IIR 
Ilr 
LOL 
apo! 
SHR 
ERS 
LOXxA 
BUF 
LOL 
LOA 


TEA 


LOX 
LDAL 
CLL 
TES 
LOL 


B1G29 

SF 

RA 

uF 
0001 


JMPRL 


4F 

wIG77 
0002 
0001 
0000 

EXIT4 
0000 
0400 


90100 
BIGOS 
FCEX 

co00s 


RA 
0001 


EXxIT4 
AREX 
AREXI 
TEMPS 
BIGOL 
LIThs 
Xoc 


TEMPS 
BIG25 


00014 
81G07 
EXIT4 


CONST 
8002 
9002 


9004 

8002 

0008 
COMT 
RL 


oF 
NPAR2 
ATL 
ASM32 
SF 

5F 


6F 


Q0010 
ASMS 


iF 
CASIN 


if 


ASM3 
iF 


iF 


ASM32 
CASIN 
NPARL 


NPAR I 
NPAR 2 


CHECK IF DOING A FUNCTIUN CALL. 


[S58eCHECK FOR ZERO 


IS9eCHECK FOR LIR 


I4OeASSIGN CONSTANT 


T42eASSEMBLE 3 


_Jameanatmianati. meeialiainias.sdeminaaaatitis, , pate. MOON, ie A A A ican, pO, URL, se, Le A RL CN in otilinaitnt, dead etme so-—nitnn gummi emnmnabinGh cacti tre ee pe citi deem Sen smn 


1972 
1972 
1973 
1974 
1975 
1970 
1977 
1976 
1979 
1980 
1981 
192 
1983 
1984 
1985 
1980 
1987 
1968 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
z008 
200° 
2007 
2008 
2009 
2010 
Prose | 
2012 
2015 
20348 
2015 
2016 
2017 
2016 
2019 
2020 


0342 
JA92 
Q8i8 
16<6 
0229 
0455 
1845 
4083 
9065 
1603 
1407 
oeia 
0216 
1803 
1607 
2045 
J247 
0276 
9079 
0a61 
Qo93 
9306 
Q0U5 
1807 
9458 
164] 
0845 
9657 
04359 
4020 
1843 
0225 
0410 
0212 
0827 
2007 
9416 
Q2e1 
0825 
2025 
1627 
0651 
0625 
2407 
2445 
1046 
0647 
1625 
9825 
l4alg 


36S 
388 
388 
338 
388 
ee 
388 
386 
3868 
386 
388 
368 
38B 
388 
3sB 
388 
886 
38B8 
888 
838 
386 
388 
883 
888 
388 
385 
388 
388 
388 
888 
388 
386 
388 
388 
388 
386 
385 
388 
838B 
388 
386 
388 
385 
888 
388 
888 
586 
388 
388 
38s 


eacecce acqocecocecaccacocoaocecccaaccaceaececececcacececaoce 


4740 
4016 
4624 
HMHH 
0008 
4191 
O201 
0085 
0001 
1405 
0400 
0216 
0001 
1605 
4191 
0645 
4974 
0005 
0861 
4191 
4604 
0005 
1405 
4336 
1641 
2243 
0900 
0859 
0007 
1625 
0225 
0000 
0212 
0000 
1405 
0600 
0200 
2025 
0627 
0625 
0429 
06355 
1405 
4741 
1046 
4625 
2127 
0825 
O2i2 
0200 


0592 
3818 
1626 
Q229 
O433 
1843 
$776 
4303 
1603 
1807 
O84 
464) 
1803 
1607 
2043 
0247 
0276 
0079 
0283 
9093 
0306 
4599 
1807 
3438 
1681 
0aas 
0657 
QO0OA 
4019 
1823 
427 
0070 
W427 
0025 
2007 
J4H16 
022} 
0425 
4709 
1627 
3631 
4570 
2407 
2445 
LO46 
O76 
1914 
i827 
1914 
J419 


vgoos 


AREX 


Coole 


AREAL 


& 
3 
ADDNA 


a 


2 OR19 


ERS 
SUF 
STA 
IIR 
ERS 
BUF 
LOL 
LDL 
LOX 
STX 
SHL 
LOL 
LDxi 
STX 
STA 
ERS 
LDL. 
TEG 
LOX 
LDA 
L.DX 
LOL 
LDA 
LUL 
CLX 
STX 
SHR 
ADD 
IIR 
TES 
L.DXx 
CON 
LOX 
CON 
LDA 
SHL. 
SHR 
LOL 
LOX 
LoL 
LDAA 
LOX 
LDA 
ERS 
CLX 
SUB 
ALF 
LOL 
Lx 
SHR 


Al 
LIT 
TEMPS 
HHH 
RL 
TEMPS 
Exits 


0001 
TMP 12 
0400 


0001 
TMPlé 
TEMPS 
Hi 
BIGLY 
AREX 


TEMPS 
8rG25 


AREX | 


TMP12 
INCRE 


ACC 
090VU 


0007 
CoRLO 


00000 


90000 
TMP il 
9600 
0200 
oF 
iF 
BF 
70000 
LYTIO 
TMPLd 
XMH 
7F 
GIGOS 
PARAM 


0200 


ASM31 
BRI 


BR 


CLACC 


ASM28 


RA 
co009 


iF 
00070 


00025 


uF 

ASM 34 
ADUONX 
QOU00A 
ASM3 


AREX4 


cORES 


[44eGET SUBSCRIPT 


T45eWHAT KINO ARRAY 


T4GePARAMETER COUE 


2021 3619 386 
2vee 4Q¢} 386 
2025 2624 388 
20g4 267 686 
225 26435 986 
2026 1245 9385 
20e7 0447 9888 
2028 Q251 388 
2029 0055 8888 
2030 1837 38S 
2031 9859 3868 
2032 2807 3588 
2033 0616 388 
2034 0420 386 
2035 1625 388 
2036 9253 388 
- 2037 9424 $88 
2038 1826 «6388 
2U39 0255 8B 
2040 0259 686 
2041 2843 3386 
2042 3007 8B 
2045 04e1 386 


3Q O621 9425 LUL SF in 

B82 o8424% 3624 CoO), TEQ cORLI 147e¢SAD CODE 
25 1405 24507 LOA TMPLa 

35 4741) 2643 RS  XMH 

30 1248 4260 Lol const 
OS oO44u7 9072 Lux CASIN 
25 cOOR 028; LUA RL 

05 0253 0055 Lox iF 

30 1857 0659 LOL 7° 

30 0859 1627 LOL ADONX 
25 1405 2807 LOA TMPLi 

37 0600 0616 SHL 0600 

05 vOooA 90420 LOx RA 

32 0200 1625 SHR 0200 

26 1046 1o46 CLA 78 

13 11360 «4475 1 ALF FUDGE 

30 1826 1827 CcORI1 LOL CORES 
20 0633 0235 SUF LITIO 

OS OOOA 0239 LOX RA 

32 0100 2a43 SHR 0100 

25 0808 3007 LUA B8IGO7 

30 O421 4ST7O LOL 5F ASHS 
25 2223 1825 5 LOAM 7000”U COODA 


(al 
© 


2044 i825 38B 0 06 oO428 0428 CLX 
2045 o42e@ 3888 0230 4570 LOL ASMS 
2046 9230 886 0 05 GO32 4927 LOX INCUG 
2047 0032 888 0 50 4880 0625 STL NXLOC aB | 
2048 9283 8868 & 31 1886 1886 CLacc CLL SUBROUTINE TO STORE A IN TEMP IF IT I> IN USE 
2049. 1866 886 9 25 2243 1645 LOA ACC 
2050 1645 8688 9 82 ocOoOt 0248 TEQ Rx IN THE OGJECT PROGRAM 
2051 0248 886 0 65 4926 J278 STX EXITS 
2052 3278 3888 2 0S COBO 3082 | LOX eF 
2053 0082 888 0 30 0284 2086 LOL oF 
2054 2066 8868 0 08 4701 4229 LIR1 TEMPS RE» IF TEMPS STACK IS EMPTY?® RESERVE A NEW PLACE 
2055 0080 888 J 05 0o27864 4927 2 Lox LF INCUQ IN UNIQUE.» 
2056 02684 88B 0 25 2243 1845 1 LDA acc 
2057 1845 388 0 70 O6a7 YODA ADO RA 
2058 0647 888 0 0B 0000 0453 LIRI cOdK”U 
2059 o453 388B 0 29 go000 0602 LDAL ogdu 
2060 0602 388 4 35 4667 JA19 ERS xXaC 
2061 3619 888 2 06 1622 1622 CLX 
2062 1622 38B U 65 2243 2045 STX ACC 
2063 2045 88B 2 05 OCOOA a4uug LOX RA 
2064 2489 @88 J 07 HHHH 2252 IIR HHH 
2Vv65 2252 388 9 35 0COOR 9456 ERS RL 
2066 u456 888 5 77 #0456 = 1859 ATL 
2067 1659 888 » 20 coor 3263 BUF RX 
2068 G203 888 » 70 4247 Y300 ADD gIG3u 
2069 0300 888 . 64 yooo Lun? STAL 0000 
- 2070 1402 383 5 25 4603 38355 LDA s1G60 


2071 
2U72 
2073 
2074 
2079 
2076 
2077 
2078 
2079 
2060 
208) 
2062 
2063 
2084 
2085 
2086 
2087 
2068 
2089 
2090 
2091 
4092 
2093 
2094 
2095 
z09e 
2097 
2098 
2099 
2101 


0855 
2U59 
0392 
1827 
2003 
o44g 
2452 
0659 
0850 
9%Sa 
0458 
3460 
o2zua 
0254 
9656 
4022 
824 
g242 
0408 
o4l2 
0215 
0608 
O44} 
080s 
9017 
oe21 


0476 


0097 
1408 


686 
= he] -) 
888 
386 
388 
388 
388 
388 
386 
386 
asa 
38B 
38s 
388 
388 
388 
386 
386 
88B 
B88 
388 
888 
88s 
388 
868 
388 
388 
388 
3868 


ececaccocacacacaocaocaecocecacecoeceac 


20 
OS 
30 
50 
25 
30 
05 
70 
25 
05 
30 
25 
37 
01 
22 
30 
25 
35 
05 
07 
35 
77 
25 
37 
32 
20 
70 
30 
30 


0008 
1750 
4926 
0201 
4196 
0850 
6254 
0461 
2652 
0656 
0460 
1405 
0600 
22iF 
2306 
0824 
&7N0 
1805 
000A 
HHHH 
1405 
0608 
1405 
0600 
0100 
0008 
4194 
160S 
4770 


2059 
0352 
4709 
2003 
O44 
2452 
0659 
4709 
Q454 
0458 
4760 
0208 
0201 
3695 
538¢ 
1627 
0242 
0808 
0912 
9215 
0608 
O41) 
0808 
0617 
0621 
0476 
0097 
1408 
4351 


;, i - Be ei) Se te aie Bede ge toe te eS Ee a a aS ee we 
aaa a A ND RENN Na AN NO eg PP I AE Oa A am cm a wma 


CORES 


2 
coole 


ARE X2 


BUF 
L.DX 
LBL 
STL 
LOA 
LOL 
L.DXx 
ADO 
LDAA 
LUX 
LOL 
LDA 
SHL 
ALF 
ALF 
LOL 
LDA 
ERS 
LOX 
TIR 
ERS 
ATL 
LDA 
SAL 
SHR 
SUF 
ADD 
LOL 
STL 


RL 
woo000 
EXITS 
EXITS 
UNTQU 
oF 
iF 
BIG69 
05000 
af 


TMP Il 
0600 
(CORE 
ONLY) 


Al 
TMP1h 


HHHri 
TMP1i 


TMPid 
0600 
0100 


RL 
TEMP 7 
TMP le 
COoMT 


ASH34 


TF 


ASH34 
A0000 


ASM35 


EXITS 


ADONX 


AREX2 


Exits 


THIS SUBROUTINE PUTS OUI THE cORE ONLY 
PAIR OF INSTRUCTIONS 


TS8eORDINARY CODE 


T49eCOMPILE OP 


2193 
2108 
2109 
2110 
@2kii 
2112 
2115 
2144 
2115 
2146 
2117 
2148 
2119 
2120 
Ziel 
2122 
2125 
2124 
2125 
2126 
2127 
21286 
2129 
2130 
21351 
2132 
2135 
2134 
2135 
21306 
2137 
2138 
2139 
2140 
2141 
2142 
2145 
2lue 
2145 
2146 
€147 
2148 
2149 
2150 
2151 
2152 
2155 
2154 
2155 


jU89 
g9i0e 
95u9 
yos2 
3340 
J1e9 
g532 
0155 
U752 
9954 
gise 
9360 
Q165 
0176 
9178 
1260 
0252 
1602 
1261 
1262 
1286 
12ey 
QO103 
O21) 
9113 
0116 
9720 
Q5<47 
3376 
gell 
1614 
1918 
0640 
1624 
0851 
9853 
9257 
1417 
1822 
1265 
J287 
9293 
J296 
Vag9 
QO9<e0 
Q324 
9727 
O401 
S043 


386 
8868 
365 
888 
388 
366 
388 
388 
38B 
386B 
686 
386 
388 
386 
338 
3868 
386 
388 
368 
388 
386 
386 
336 
388 
388 
3888 
388 
38B 
386 
388 
3868 
388 
38s 
B88 
386 
rh} 
388 
386 
388 
358 
3888 
BSB 
536 
38o 
38B 
3868 
386 
3865 
388 


&ececccccccecceacececcececcecoceoccaccceceoceaecacecacctce 


06 
06 
05 
30 
30 
87 
30 
87 
25 
O35 
30 
70 
32 


29 
05 
24 
64 
06 
35 
35 
35 
60 
05 
77 
0G 
32 
35 
20 
08 
05 
30 
25 
a7 
30 
35 
20 
70 
64 
30 
35 
31 
82 
30 
25 
82 
29 
35 


24 


9092 
0092 
0092 
J520 
0129 
O732 
0155 
0158 
0336 
9000 
4303 
0168 
0176 
QO0A 
1230 
4o8y 
1602 
1262 
9154 
4568 
0103 
g1o3 
Olli 
4084 
3116 
9720 
OS27 
J376 
O61) 
1614 
i4isg 
4485 
1624 
083) 
4303 
0237 
1417 
1822 
1285 
4393 
3293 
9296 
1099 
3920 
3324 
1099 
Q80) 
3n4ay 
1802 


LS 

L SwOF 
L SWON 
1 


Loo0ge 


LOGO! 
LOOOe 
LoO006 
LOOUSs 


LQOoUSs 


i a mcaclilinie  acnmacllah _ seat, acre, Aneel, catia, eatidnbieteln 


cLx 
cLx 
LDOy 
STL 
LOL 
TGR 
LOL 
TGR 
LDA 
CON 
LOL 
ADO 
SHR 
ADD 
LDAL 
LDx 
BUF I 
STAI 
CLX 
ERS 
ERS 
ERS 
STA 
LOX 
ATL 
TIRI 
SHR 
ERS 
BUF 
LIR1 
LOX 
LOL 
LDA 
SHL 
LEL 
ERS 
BUF 
ADO 
STA1 
LOL 
ERS 
CLL 
TEG 
LOL 
LDA 
Ter 
LDAl 
ERS 
BUF 1 


ire 


a1G04 
EXITe 
sIGSO 


BIG6YU 
IF 


03190 


KX 
080U 


0000 


9000 
9000 


AMH 
XOM 
XO 
TEMP 2 


0g0u 
0400 
XC 
TEMP < 
LLIST 
RL 


RX 
040U 


XCcO 

LLIST 

ONELS 
000u 


AMH 
EXIT Ta 

LABLA 
99949 


AMY 
0000 


iF 


LF 
aF 
NOMAL. 


090000 
BRL 


RA 
L.9950 
FARNL, 


LOQUd2 
EXIT2 
iF 


FARNL 


IN> 


ori 


LOQOS 
AR 


iF 


iF 


Te 16Ge LSW FOR ASSIGNING STATEMENT LABEL 56 
I6O0eCHECK LABEL 


BAD LABEL 
IéleIN UO LOOP 


T62¢4SSIGN 


TO4e TEMP ASSIGN 


4156 lsb2 386 0 64 O000 2002 STAL QO00V Lexi 
2157 1099 888 0 29 9999 1282 1 LDAL 9999 LO002 


a ee ne ee ee en - 


2136 
2159 
2160 
2161 
2162 
2165 
2164 
2165 
2166 
2167 
2168 
2169 
- £170 
- 2171 
2172 


J072 
j07S 
2402 
185 
16u8 
0628 
123) 
9648 
2602 
2802 
24uU53 
Oeil 
0413 
1gUa 
9660 


388 
386 
388 
388 
e868 
385 
8B 
386 
383 
888 
388 
B88 
d8B 
B86 
388 


07 
39 
31 
82 
65 
07 
35 
24 
64 
O9 
65 
O5 
QO5 
20 
77 


HMrHH 
0000 
1805 
1608 
4926 
HHHH 
4196 
0000 
0000 
Q001 
4209 
0415 
4926 
440A 
0660 


0076 
2462 
4805 
1808 
3628 
123} 
y6ug 
2602 
2802 
2403 
O81) 
$494 
4927 
0660 
900c 


CASIN 


rIR 
ERS} 
CLL 
TES 
STX 
TIR 
ERS 
BUF 1 
STAL 
LDX1 
STX 
LDX 
LDX 
BUF 
ATL 


HHHri 
000uU 


EXITS 
HHHH 
UNIQU 
0000 
0000 
0002 
TemMP2 


EXITS 
81GO4 


iF 


ASM&2 
INCUG 


RX 


Ie 1706 CASIN ASSIGNING CUNSTANTS. 
TTO*¢ALREADY ASSIGNED 


I7T1LePICK UNIQUE 


I72¢COMPILE CONSTANT 


+ panicacaneeN _peaneniamain, paisa. peaieeinnts pmmntinney get, ee i mp a 
- J ne, 


21735 
2174 
2175 
2176 
2177 
2176 
2179 
2180 
2i1a1 
2£1s2 
é1g5 
2184 
2185 
2166 
2187 
2188 
21869 
2190 
2191 
2192 
2195 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
“202 
22905 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
@2ii 
e212 
22i5 
2214 
2215 
2216 
2217 
£216 
2219 
2220 
e221 


yi7s 
Q377 
018) 
0164 
Qg099 
0290 
0297 
1299 
0717 
0319 
QJ3e1 
US24 
0128 
0150 
1300 
0377 
0165 
1324 


1399 
1398 
1397 
1396 
1395 
1394 
1393 
1392 
1391 
1390 
1389 
1368 
1387 
1306 
1385 
1384 
1363 
1362 
1381 
1380 
1379 
1378 
1377 
1376 
1375 
1374 
1302 
9306 
9310 
i3v1 


3858 
386 
338 
388 
3868 
388 
388 
386 
388 
838 
388 
388 
8BB 
38B 
386 
686 
886 
688 


38B 
388 
886 
386 
388 
8868 
8B 
388 
686 
8B 
88B 
38B 
386 
83865 
388 
ass 
368 
388 
386 
385 
8B 
588 
38B 
886 
368 
888 
386 
386 
386 
388 


Geccacecccccccacccecccecaccceccace 


65 
i 18) 
06 
32 
65 
37 
70 


30 
05 
8&7 
25 
30 
25 
25 
32 
35 
26 


25 
25 
30 
30 
60 
30 
87 
87 
32 
82 
00 
OG 
85 
26 
75 
75 
87 
87 
20 
20 
60 
70 
00 
25 
0G 
30 
é5 
30 
82 
25 


C175 
0379 
0164 
0800 
0268 
0400 
1299 
1300 
0519 
1340 
OS2ua 
oooc 
0130 
0288 
0175 
0509 
0022 
0379 


9901 
9902 
9901 
9902 
9901 
9901 
9905 
9903 
9904 
9904 
9902 
0009 
9901 
9999 
9901 
QOOR 
9905 
9903 
9901 
0008 
9903 
9999 
9999 
O0GR 
8868 
9905 
0104 
1968 
OS21 
0104 


3377 
0181 
2184 
0099 
0290 
0297 
QOOA 
O717 
0321 
0842 
o00¢ 
0128 
4350 
018) 
0577 
0188 
0379 
y379 


9999 
9999 
9999 
9999 
9999 
9999 
9999 
9999 
9903 
9905 
9999 
9999 
9999 
9999 
9999 
9999 
9904 
9904 
9999 
9999 
9999 
JOOA 
J000 
9999 
9999 
9999 
0506 
3510 
wJIi3s 
J313 


ASM1 
ASMil 
LOOP 


LOOP 1 


TASM2 


19000 


100244 


1Q099 
190098 
10097 
T0096 
10095 
10094 
T0095 
TOQ092 
10091 
10090 
T0089 


TOO08s 


10087 
10086 
10océes 
10084 
10063 
10082 
1¢061 
10089 
1oO079 
1¢O78 
1C¢077 
10076 
1yO7s 
1GO74 
1roooe 


rooGg) 


STX 
STL 
CLX 
SHR 
STX 
SHL 
ADD 
LUX 
LDL 
LDXx 
TGR 
LUA 
LOL 
LDA 
LDA 
SHR 
ERS 
CLA 


LDA 
LDA 
LOL 
LOL 
STA 
STL 
TGR 
TGP 
TEQ 
TEQ 
JMP 
IIRL 
MUL 
CLA 
SUB 
SUB 
TOR 
TGR 
SUF 
SUF 
STA 
ADD 
JMP 
LOA 
Tiel 
Loe 
LOA 
LOL 
Tee 
LOA 


PAR2 
EXIT? 


0800 
TMP1S 
0400 


10000 
1004u 


RX 

Ix 
TMP 13 
PAR2 
0500 
X9 
EXIT? 


9901 
9902 
9901 
9902 
9901 
9901 
9905 
9903 
9904 
9904 
9902 
0000 
9901 
9999 
9901 
0008 
9905 
9903 
9901 
0008 
9903 
$999 
9999 
0008 
BB8x 
9905 
PaR 
CoP 
2F 
PaRi 


ASM1L1 
LOOP 


LOOP 1 


RA 

1F 

2F 

iF 

RX 
TASM2 
ASN2 
LOOP 


EXIT? 


9999 
9999 
9999 
9999 
9999 
9999 
9999 
9999 
9903 
9905 
9999 
9999 
9999 
9999 
9999 
9999 
9904 
9994 
9999 
9999 
9999 
QV0A 
0000 
9999 
9999 
9999 


#918 OF 


oF 


Te 


Ile 


LIST OF INSTRUCTIONS 


LOAL 
LOAd 
LOL’ 
LOLe 
STAI 
STLAL 
TGRS 
TERS 
TEQ4S 
TEO4S 
JMP2 
TIRIO 
MULL 
CLA 
SUBi 
SUBRL 
TGRS4 
TGRS4 
RUF IL 
RUFRL 
STA3 
ADDY4 
JIMP 
LOARL 
ITRIN 
Lots 


ASSEMBLER | 


Tle CHECK SPECIAL CASES 


pi i a ts i ee et ee s Bae 
EEE eT ae Rea RTE ET RPE YR STR ES IE 7 ~ ak ~ ee te ee SSS SSS SSS SSS ee Se ee eee 

me ee Z é Seay 
G z 


2222 
2225 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2251 
2232 
2235 
22354 
2255 
2236 
€237 
2238 
2239 
2240 
2241 
222 
2245 
2244 
2248 
2249 
2252 
2255 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2265 
2264 
2268 
2269 
2270 
2271 
2272 
2275 
2274 
2275 
€276 
2277 
2278 
2279 


JILS 
G947 
USe} 
giles 
1303 
9706 
1917 
0542 
9344 
1305 
0307 
2603 
2005 
5002 
1609 
224s 
0848 
O451 
2403 
24905 
3003 
0810 
1305 
1306 
0709 
1307 


1855 
186] 
0483 
9255 
g869 
2057 
0661 
2259 
1308 
1906 
1309 
2106 
O777 
0385 
2306 
0977 
0585 
9367 
191 
arto 
9713 
2117 


3865 
88s 
356 
388 
386 
rh} <) 
336 
988 
3a65 
386 
3938 
888 
3838 
386 
B86 
388 
388 
886 
886 
388 
838B 


388 
38B 
688 
385 


665 
686 
388 
36B 
386 
388 
386 
388 
88s 
388 
358 
686 
B88 
88B 
38s 
5868 
B88 
388 
3868 
3986 
386 
3688 


Geeceoeoeoaoc”eec Coececerccececaacace € 


weaccececccececcacae ceoaccccec 


30 


25 
98 
25 
30 
82 
25 
97 
07 
39 
790 


37 
30 
82 
Q7 
39 
70 
25 
37 
82 
05 
26 
60 
00 


25 
30 
05 


70 
05 
30 
32 
25 
05 
05 
45 
32 
60 
65 
32 


QO 
30 
82 
25 


20 


O11s 
0521 
0125 
9900 
0103 
0115 
0342 
O3544 
9ail 
HHHH 
0001 
2005 
C000 
0400 
2245 
0150 
HHH 
Q000 
2405 
0000 
0400 
0542 
0130 
0709 
2245 
1300 


4779 
0485 
0285 
0008 
vosa 
2259 
0130 
1115 
0108 
1389 
0108 
0175 
0S00 
0104 
0175 
0500 
0387 
990! 
1908 
0515 
oocc 
4247 


J917 
Ji30 
gle. 
9000 
0706 
1917 
0130 
0181 
0900 
0307 
2603 
QOOA 
3902 
1609 
2245 
08448 
O85} 
29803 
QO0A 
3003 
0810 
4393 
0283 
0709 
9130 
4300 


1884 
4260 
go72 
0489 
2057 
J66) 
4709 
9135 
1906 
Q191 
2106 
O777 
0385 
2306 
O9797 
0585 
19) 
9999 
9710 
o713 
2117 
wlk¢ 


TOQO0US5 


19004 


10005 
10006 


10007 
TRCSW 


TRCOF 
TRCON 


1 
1000a 


TOOU9 


LOL 
TE 
LOs 
CON 
LOA 
LOL 
TEGO 
LOA 
CON 
IIR 
ERSS 
ADD 
LDA 
SHL 
LOL 
TEQ 
TIR 
ERSS 
ADD 
LOA 
SAL. 
TES 
LOX 
CLA 
STA 
JMP 
£QU 
EQuU 
LOA 
LOL 
Lx 
LDA 
ADO 
LOX 
LOL 
ALF 
LOA 
L.DXx 
LOX 
LDA 
SHR 
STA 
STX 
SHR 
LOX 
JMP 
LOL 
TES 
LDA 
BUF 


pam dal ci, come, | nL ice sellin abc. wtiematlilini, | cteiiaien aidan end denen i. § aieneiet memento, | omen eli eee ee i cm 


c1as 


af 


92090 
PAR} 
CuH#s 
iF 


97984 
HHHH 
oo01 


0000 
o400 
ACC 


HHHH 
0000 


0000 
0400 
1A 
Ix 


Acc 

10000 
10007 
10000 
CHOLU 


RL 
BIGOS 
iF 
Ix 
TRACE 
PARI 
10089 
PARI 
PAR2 
0500 
PARI 
PAR2 
0500 


9904 
caP 
SF 
RX 
3IGSu 


Ix 
LOuP 
00900 


Ix 
LOOP 
10J09 


RA 


RA 
1OU05 
CLACC 


Ix 


CONST 
CASIN 


ASHAS4 


iF 


1 
9999 


LOAd POL 


LOLI LDA2 PORL 
l4e CHECK SUBSCRIPT 


15. CLEAR ACC 
I6-. SET ACC AVAIL 


I7e TRACE 


1Be OP y2 


Id. PO vi 


mma, mmemcmarmacnee fOamRN, in nh, jit phn, sa pm em a a ety enn pemeerlle 


228U 
2261 
2282 
2285 
2264 
22495 
2286 
2287 
2288 
22a9 
2290 
2291 
2292 
22935 
2294 
2299 
2290 
2297 
2298 
2299 
2300 
2301 
2502 
2305 
2504 
2505 
2306 
2307 
238 
2309 
2310 
23,41 
25\12 
2515 
2514 
2515 
23516 
2317 
2518 
2319 
2320 
2521 
2522 
2525 
2527 
2328 
235249 
2530 
2531 


£332 


9149 
05153 
1177 
1619 
1310 
1311 
2tU6 
1777 
0785 
2906 
2506 
13i2 
gsi 
1313 
1977 
0384 
Oise 
o004 
2008 
1410 
uSlé6 
uS52 
0160 
0752 
0572 
0375 
0952 
0956 
0186 
2177 
0386 
jig 
9126 
9328 
090g 
1323 
0950 
US2n 
13145 
07149 
0331 
VJ80 
9163 


13i8 
2377 
JIGR 
JIFO 
0507 
JIS9 


886 
388 
888 
386 
888 
388 
385 
888 
886 
388 
388 
888 
38s 
888 
838 
386 
386 
3388 
38.6 
38B 
388 
338 
888 
388 
38B 
38B 
880 
63B 
888 
$868 
586 
388 
g86 
588 
888 
3865 
388 
386 
88s 
3568 
883 
388 
36s 


388 
386 
388 
388 
386 
388 


tcec¢ & eccccaoceccecacceaceccccccecaccacecqceaoaceccacocc 


1310 
0175 
4617 
o00c 
0104 
0104 
0175 
0500 
0104 
0175 
0009 
0514 
0008 
0175 
04600 
0186 
0201 
0406 
i410 
0000 
41750 
4628 
1750 
4770 
0201 
1750 
0000 
0201 
0175 
0600 
0130 
46824 
0328 
0001 
4770 
4528 
0150 
Q000 
4617 
4579 
4528 
0150 
01350 


O175 
0400 
OOOA 
0104 
0500 
0104 


4550. 


1177 
1419 
0128 
2506 
2706 
1777 
0785 
2906 
2506 
Visi 
0513 
9999 
1977 
0384 
visa 
Q004 
2008 
QO0A 
0816 
0552 
9180 
07582 
0572 
O375 
0952 
0556 
0204 
2177 
0386 
4976 
9126 
OOOA 
0404 
1323 
3930 
4556 
ga00 
a?r1g 
j333 
0380 
0183 
O31G 


2377 
9584 
0389 
0507 
9315 
O315 


16010 
1002} 


1ToOOle 


1o015 


CALPK 


10014 


1G023 
TASS2 
LIRA 


10013 


$9044 


$116 


“116 


LOL . 


LDA 
ERS 
SUF 
LDA 
LDX 
LDA 
SHR 
STA 
STX 
ERS 
LOX 
JMP 
LDA 
SHR 
LOL 
STL 
ERS 
AbD 
LIRI 
LDOLi 
LDA 


BUF IL | 


STA 
TEO 
STA1L 


TIRS 


L.DX 
LDA 
SHR 
LOL 
LOA 
ADO 
LDA 
STA 
LOA 
LOL 
LARS 
LDA 
ERS 
LoL 


Lut 


LDA 
SHL 
ADO 
Lox 
SHR 
LDA 


ASM2 


TASM2 
1F 


iF 
LOoP 


9999 
CALPK 


RA 


SUJDF 


ASN36 
RA 
10025 
TASS2 
ASMS2 
0000 


AT... 


~118 


LF 
iF 


T1l0«¢OP RL 
TlilePO RL 


112-¢O0P AL NAT 


TidSeL IRS NXT SUVs 


TL4eSTORE INTO Rel 


TiSeATL CONDITIONALLY 


L166SHIFT 
TIZeUNARY OPERATOR 





2353 
25354 
253% 
2336 
23537 
€538 


25359 


2340 
2341 
2d42 
23435 
2344 
23545 
2546 
2347 
2548 
2349 
2350 
2351 
2352 
2353 
2554 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 


9315 
giae 
J7e21 
1319 
Ll2l 
0145 
QO92T7T 
9140 
0329 
Oo7a2 
Q733 
1320 
0722 
05249 
9876 
0146 
0153 
0357 
O16} 
0163 
0925 
0932 
1321 
0346 
0860 
1342 
O7eu 
1145 
1152 
O77T6 
u3580 
O764 


388 
388 
383 
388 
388 
388 
386 
8858 
888 
885 
386 
3888 
398 
38B 


396 | 
J8B . 


385 
5868 
885 
388 
388 
388 
388 
388 
38s 
386 
386 
386 
388 
ees 
386 
83868 


COCGOSCGCCGCOCOCOGCECOCGCGCEOGHLOGCCCGCGCCOCKGLUE 


0118 
0130 
0175 
Lidl 
0323 
0927 
0329 
0329 
OS31 
USa4 
4860 
0722 
0400 
4724 
osua 
0400 
0355 
0559 
0163 
0323 
0130 
4880 
os44 
4408 
o544 
O724 
O323 
0400 
4728 
1178 
0362 
O130 


Jia 
0721 
1313 
4084 
9125 
4736 
4O84 
4084 
Q733 
0733 
0130 
4084 
0529 
0576 
O16 
0153 
0359 
016) 
4570 
0925 
0932 
4686 
Q346 
0560 
J130 
4084 
1125 
1132 
O776 
9580 
978y 
4570 


10019 


TOES 
TOE 

1 
TOBILO 


2 
Toceo 


FIULNX 
190021 


To0d2 


Lo a & 
TEGO 
STA 
LOX 
STA 
LOL 
LOX 
LOX 
STA 
LDA 
STA 
LOX 
SHR 
ERS 
STA 
SHL 
BUF 
LDXA 
LOL 
LDA 
LDL 
STA 
LDA 
SUF 
STA 
LDX 
STA 
SHR 
ERS 
BUF 
LUXA 
LOL 


Ix 
PAR2 


Tu iREF 
TosSwW 
iF 

iF 
Twos 
NINEF 
NxLOc 


0400 
xc 
NINEF 

0400 
81G87 
02000 


THREF 
1x 

NxXLOC 
NINEF 
BrGgoi 
NINEF 


THREF 

080U 
XC 
BIG2Y 
0020u 
Ix 


10013 
F ASNL 


GOTO 
F ARNL, 
FARNL 
2aF 
aF 


FARNL, 


00y01 
ASMS 


F YLNX 
FILUP 


[x 
FARNL 


000190 
ASMS 


1190eGO 7O SFe2t 


T200e«TGR SF SF 


I2leNINEF DO 


[22e8UF 


LF 


+ ania ale tae csc meee. eam, steam senate one on le ee SS ee a Fen pe nT ee ee Ce ee ee ae Se 2 - 
neath, ene iene 
ae, 
~ 
—— ‘iaattedemmoeine 
a TC, tn 
Aimee nena pm 


Eden 


23565 
235735 
237% 
2379 
2376 
2377 
2378 
2379 
2580 
23861 
25862 
23583 
2584 
25a 
2586 
23a7 
2588 
2389 
2390 
2391 
2392 
2395 
239% 
239% 
2396 
2597 
25398 
2399 
2400 
2401 
2402 
24035 
24904 
2495 
24906 
2407 
<4 08 
2409 
24130 
ani 
24i2 
2413 
24 14 
2435 
2416 
2417 
24 18 
2439 


2420 


0373 
0604 
14k) 
0615 
1618 
2423 
0828 
165} 
Qovi 
240a 
J8ls 
08<0 
2022 
4000 
40U1 
4062 
4003 
4004 
4005 
4006 
4007 
4008 
0612 
2608 
0654 
0658 
Jisg 
Q800 
0804 
1617 
08e1 
O77 
1404 
2808 
J649 
0062 
1624 
0629 
J252 
9456 
140] 
0606 
1612 
1611 
2014 
1620 
2222 
0849 


aes 
a3B 
388 
388 
886 
u8B 
a8B 
BBB 
888 
386 
386 
388 
Bae 
BBB 
038 
a8B 
a8B 
388 
3aB8 
aeB 
aaa 
uae 
388 
BBB 
aes 
386 
868 
386 
ase 
aaB 
888 
386 
aes 
883 
BBB 
ass 
g88 
aeB 
Bes 
388 
388 
aBB 
aes 
ase 
aes 
aaB 
ase 
888 


KOC CCecCtC rere ceoecoreceoeceeococecccaoceocaccecaoccacrcecaocee 


0000 
0400 
0615 
0615 
OOOA 
0008 
0828 
9999 
04800 
0615 
0008 
2022 
4000 
0000 
0001 
0000 
0002 
0003 
0003 
0000 
Q005 
0005 
4756 
4408 
0658 
0860 
O80! 
1908 
4215 
1819 
0104 
0000 
QOOA 
S247 
OFOO 
0022 
QOOA 
0629 
0234 
9999 
0008 
OOOA 
1814 
i611 
0300 
2222 
0000 
9999 


0604 
1411 
0615 
1618 
2423 
0828 
1631 
0601 
2408 
081s 
0820 
Q00A 
4000 
0654 
J654 
0634 
0654 
2608 
2608 
0654 
2508 
0612 
0458 
0658 
0658 
QO0A 
0804 
QO804 
1617 
O82 
0709 
L804 
28083 
0649 
0062 
1824 
0629 
J232 
J436 
1401 
0606 
4611 
00482 
2014 
1620 
3004 
J829 
1233 


ARITH 


80000 
BOOO! 
80002 
B8Q005 
300048 
BOQ005 
80006 
80007 
80008 


EA pe 


BINSS 
RINOP 


BINAL 


RBM 
-BM 





LDAS 
SKR 
ERS 
ATL 
ADD 
ADO 
ATL 
LOAS 
SHR 
ERS 
ADD 
AbD 
JMP 
TIRI 
TIRI 
IIR’ 
TIR1I 
IIRL 
TIRI 
TIRI 
TIRI 
TIR1 
L.DXx 
LOX 
CLX 
STX 
LOX 
LDx 
LUE 
STL 
STX 
LDAS 
LDX 
ERS 
SHR 
ERS 
ADD 
ATL 
LOAS 
ERSS 
ADD 
AUD 
LOL 
ATL 
Sh 
AUD 
Tiel 
TIRS 


000U 
0400 
KONS 


RA 
RL 


9999 

04060 
KONS 
RL 


390000 
0000 
0001 
0000 
0002 
0005 
0005 
0000 
0005 
0003 

81G0e 

sIGOl 


OTYP: 
csus 
CoP 
OPX 
&SAC 
PARI 
0000 


BIGS0 
OFOO 

x9 

RA 


8000VU 
9999 

RL 

nA 

ANSL 


030u 


000u 
9999 


RA 


2F 
aF 
2F 
aF 
iF 
iF 
eF 
iF 


ar 
4F 


RA 
iF 


iF 
BINAL 


Q0U00H 


«84 
aMe 


RA 


Be ARITHMETIC OPERATORS 
ARITH SUBROUTINE 
DECINES WHETHER WE HAVE FLI“FLT+ FLTF lie 
FIX=FLT¢ OR FIX=FIX ON SINARY OPERATOKS 
AND ALSO DETERMINES TYP: OF RESULT. 


BINSS GENERATES REFERENCE TO BINARY 
SUBROUTINE* SINOP IS FOR BINARY MACHINE OP, 
Rei 1S THE Q@=TAGLE ENTRY FOR THE +* CASE, 


PICK UP THE PROPER J TASLE ENTRY <= 
SEE THE J<TABLE+ JO0CO THRU J0015. 





24a 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
42431 
2452 
2435 
2434 
<455 
24306 
2437 
2438 
2u39 
2440 
aug) 
22 
2445 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
245} 
2452 
24535 
2455 
2456 
2458 
2459 
2460 
2462 
2865 
2464 
2465 
2466 
2467 
2466 
2469 
2870 
2471 
2472 
2475 


12353 
8ST 
5069 
3077 
9482 
0467 
9689 
OJu2 
1604 
0806 
0463 
lalg 
1804 
3008 
laly 
2018 
2445 
1048 
0651 
124g 
18414 
0842 
96593 
0067 
2645 
2004 
181} 
Q907 
9315 
1415 
1817 
$104 
0909 
3715 
37i4 
$1us 
19u9 
Oo915 
39914 
#103 
O919 
192] 
24u4 
18U9 
1412 
9205 
goog 
0497 
2604 
1416 


388 
386 
388 
386 
3868 
835 
888 
385 
386 
388 
886 
335 
388 
8B 
888 
388 
398 
38s 


BSB : 


386 
38s 
388 
88B 
3868 
386 
886 
388 
686 
3868 
88s 
385 
388 
888 
3668 
8938 
3B 
3668 
386 
385 
886 
3868 
888 
988 
388 
88s 
386 
388 
385 
38B 
388 


ecrweacceeceaeacececcc cece cecoagcarccecr GeaccrGeer CGecaocaoceaie © 


0008 
4617 
0300 
QOOA 
oo0o¢c 
0689 
1700 
0000 
0806 
0869 
4978 
0000 
0000 
2243 
0000 
2243 
1048 
0651 
2245 
9999 
6215 
4301 
0860 
0000 
Q009 
1819 
0104 
0500 
0615 
1817 
0000 
1907 
o00c 
2317 
G316 
1907 
ogoCc 
4140 
1052 
4ail7 
1921 
0001 
1406 
1412 
4215 
4392 
0497 
Q000 
0900 
1416 


Jas? 
J069 
0077 
O482 
J487 
QOOA 
0302 
1604 
0173 
O463 
1814 
1304 
3008 
1819 
201g 
asus 
1248 
0651 
1248 
4215 
0067 
0453 
0067 
2004 
1Sii 
181] 
0907 
9515 
1415 
900A 
1604 
9909 
0714 
4429 
4211 
1909 
goia 
4140 
421} 
agig 
0004 
2404 
1809 
1812 
9265 
9094 
isi2 
2664 
1416 
2919 


SACC 
SAC 


ANSL 


DOCKS 
UNOP 
UNOPS 


i 
UNOP 2 
UNOP 1 


SIGN= 


&ui 
“Ll 
SIGNS 


&Le 
“Le 
3IN- 


LDA 
ERS 
SHR 
ADO 
ADD 
*DD 
LOA 
L DXi 
LDL 
ADD 
aDD 
STAS 
TIRS 
STA 
IIRS 
LOL 
TEO 
CLL 
STL 
TIRS 
LDL 
LDA 
STA 
LDAS 
ERS 
STL 
STX 
SHR 
ERS 
ADO 
LDAI 
LOA 
ADO 
LOX 
LOL 
LDA 
ADD 
JMP 
LOL 
LUA 
ADO 
Lvl 
LDA 
TED 
LOL 
LDA 
TEO 
LOAS 
SHL 
ATL 


RL 

AO 
0500 

RA 

RX 


Joooo 
0000 


OTYP«. 
BIGLY 
0000 
0090 
ACC 
000U 
acc 


acc 
9999 
OPX 
BIG90 
OTYPE 
0000 
HS 
&SAC 
PAR} 
0500 
KONS 


000u 
Two9s 
RX 
OUN- 
O8IN@ 
TwO9s 
RX 
NORMX 
OB ING 
RATOR 


0004 
OIF Ss 


OHOLY 
BIG7TY 


0000 
0900 


RA 


7F 

ASM1 
SACC 
=SAC 


& SAC 


DOCKS 
DOCKS 
OPA 
iF 

lf 
UNOP1 


iF 
lF 


RA 
78 


oLi 
~OP3 
-OP4 
~La 
-OP4 


RA 


iF 


iF 


Ble 


B56 


Bue 


Mark COMPUTER RESULT AS IN ACCUMULATOR 
UNLESS TYPE 15 9 (FOR STORE OPERATORS). 


ANS. MEANS & &® LL OP R 


UNOP ENTRIES ARE STANDAKD OPTIONS FOR 
UNARY OPERATORS 


SELECT YTAGLE ENTRY. 
MINUS SIGN 


PLUs SIGNe 


SUBTRACTION OF 


o ete _ Arcee eek aa omc hn, a A A ce fe a cS A I RINE AOR see mt 
ee 
7 Se ae 


2474 
2475 
2476 
2877 
2478 
2479 
2480 
2461 
24uez2 
24ugs 
2488 
2485 
2486 
24a7 
| 2688 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2490 
2497 
2498 
2499 
2500 
2501 
2502 
2505 
2504 
25905 
2506 
2507 
2506 
2909 
2910 
2511 
2512 
2515 
2514 
2515 


£2546 


2517 
2518 
2519 
2520 
252i 
2522 
25235 


2019 
1601 
ogis 
1616 
1812 
2804 
2027 
4102 
3004 
2227 
4106 
L1G0 
1101 
1903 
1102 
g3u4 
0305 
1103 
1919 
212) 
2605 
2011 
2414 
2418 
2421 
180} 
9853 
1056 
0856 
2805 
2001 
3005 
2845 
1648 
2852 
2214 
166 
2409 
1413 
2623 
2422 
2025 
1806 
2009 
2006 
2809 
2014 
2017 
1621 
2024 


ase 
386 
388 
388 
ues 
888 
886 
EL) 
gas 
388 
g8B 
Bas 
ase 
ase 
388 
388 
388 
388 
a8e 
386 
388 
a9 
gas 
388 
g8B 
88B 
aap 
388 
ase 
886 
Bae 
Bae 
838 
388 
388 
888 
388 
38a 
888 
eas 
488 
aaB 
aes 
ass 
388 
388 
386 
a8B 
388 
88B 


9999 
0900 
1616 
2218 
0000 
#42g 
0000 
0000 
4424 
0000 
i100 
1000 
1903 
0500 
0304 
0500 
1814 
44\7 
2121 
0001 
2009 
2214 
1816 
22148 
9999 
1051 
0856 
1030 
0000 
9999 
0000 
2245 
1648 
9999 
2245 
0000 
2409 
6100 
0700 
QO00A 
HHH 
0000 
2609 
000! 
2609 
o0o0c 
2017 
0008 
1621 
4095 


160] 
0813 
1812 
4426 
2804 
2027 
4106 
3004 
4227 
4215 
O373 
Q199 
Q305 
Jo00 
0305 
0000 
4314 
1919 
QOOA 
2605 
2011 
2414 
2418 
242} 
1801 
9853 
1056 
9800 
2805 
2001 
3005 
2845 


1248 | 


2852 
4215 
1606 
2409 
1413 
2623 
2421 
2025 
1806 
QOOA 
2006 
2809 
2614 
2917 
1621 
2924 
1047 


UN@ 


BINS 

AQOOO 
AQOO0) 
A0002 


BINER 
AQO0OS 


~ACU 


ANSR 


& ADU 


LDAS 
SHL 
TE 
LDL 
LDAS 
ADD 
STAS 
LOAS 
ADO 
STAS 
LIRI 
LIRI 
LDA 
CON 
LDA 
CON 
LOL 
LDA 
ADO 
LDA 
LDL 
TEO 
LOL 
Teo 
LOAS 
LOL 
TEO 
LIRL 
LDA 
STAI 
TIRS 
LOL 
TEOQ 
TIRS 
STA 
LOAS 
CLX 
SHR 
SHL 
ADD 
Tir 
ERSS 
ADD 
LDL 
CLA 
SUS 
CAA 
UF 
ATL 
LDA 


9999 
0900 


COLON 
000V 
LTS . 
0000 
0000 
WITS 
0000 
A000U 
ago00 


07050 


06050 
ANSL 
RATOR 


0001 
OARAS 
aF 
OARA® 


aF 
9999 
CONO 
ANSR 
Go00350 
000¥ 
9999 
0000 
ACC 


999% 
Acc 
0000 


0100 
0700 


HHHH 
0000 


9008 
RX 
RL. 


KON? 


iF 
REMRT 


BIN& 


OPA 

ARITH 
BINSS 
SINER 
00000 
BINER 
00000 
ALARM 


RA 


“ADO 


BINOP 


DOCKS 


OPX 


“AUD 


RA 


Boe NEGATION OP 


84-¢ ADDITION OP 


T&A ERR 
A&I ERR 


ANSR MEANS 


R cQUALS 


. OF R 


ee ee eee eee 


e524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2535 
295354 
2535 
2536 
25357 
2538 
2539 
2540 
2541 
2542 
2545 
2544 
2545 
2547 
2548 
2549 
2550 
2551 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2569 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2575 
2574 
2575 
2576 


1047 
2030 
24ul 
2026 
1850 
0275 
261 
24uU6 


#i<il 
1943 
22517 
2120 
4ii2 
llvua 
1105 
2107 
1106 
2108 
1107 
2606 
1853 
4101 
4113 
9316 
Hilg 
2906 
2226 
4115 
1108 
1109 
aO311 
1110 
9312 
lhil 
1120 
4116 
liio 
1113 
2115 
lila 
1115 
2717 
35006 
24i1 
4162 
4163 
U90S§ 
1610 
4307 


$80 
JdB88 
388 
38B 
388 
38s 
383 
356 


3aB 
3BB 
ase 
38s 
386 
886 
886 
a8B 
8B 
a8B 
386 
ase 
885 
BBB 
aes 
886 
gas 
386 
88s 
386 
aaB 
ass 
886 
a8B 
38B 
88B 
gas 
Bae 
8B 
38s 
ues 
aap 
a8B 
Bae 
gaB 
386 
gas 
ass 
uae 
386 
886 


& Oe ee Ce 


Ke OceeceorwrQacoccaceocece ceecceoerrc cece ccecoceccc 


1850 
9999 
4424 
9999 
9998 
9999 
oooc 
9999 


1913 
1915 
1120 
1054 
dio0u 
1004 
2107 
1310 
2108 
0500 
0000 
1051 
0856 
2103 
HHH 
0000 
0000 
4724 
04500 
41108 
1008 
0311 
0500 
0312 
0500 
1012 
0922 
L112 
1016 
2115 
0500 
1020 
1025 
0000 
3009 
2614 
1058 
1042 
&756 
6860 
4109 


29530 
2401 
2926 
1459 
J278 
2601 
2406 
ial4g 


4ou4 
2517 
2120 
4710 
O373 
0199 
0305 
9905 
0305 
0000 
2506 
1853 
1856 
4428 
U516 
OOOA 
2806 
2226 
QOOA 
373 
9199 
9305 
Yoo0 
U305 
0060 
Ulg9g 
4u2a 
9373 
0199 
Q305 
9000 
2717 
2717 
3006 
24ii 
3199 
J96§ 
2965 
1610 
0800 
4044 


SIGN* 


&FNC1 
BIN*® 

AQ004 
AQO0O5 


A0006 


AQ007 


SIGNE 
SIGNe 


SIGNS 


SIGNs 
AQOUs 
AQUOS 


ACO1O 


AOO]l 
SGN** 
BIN«®* 
ACOIL? 
AQO1LS 


Acols 
AQOIS 


BLANO 
POR 


WOLF 


TGR 
LDA 
SUF 
STA2 
MUL < 
LOA2 
ADD 
STA2 
HHH 
LOL 
LOL 
TEQ 
IIR 
LIRI 
LIR1] 
LDA 
CON 
LDA 
CON 
LDAS 
LDL 
TEO 
LOX 
IIR 
ERS2 
LDA2 
ERS 
SHL 
LIRI 
LIRR’ 
LOA 
CON 
LDA 
CON 
LIRI 
LDX 
LIR’ 
LIRI 
LOA 
CON 
LIR’ 
LIRI 
LDAS 
LOL 
Teo 
LIRI 
LIRI 
LX 
STX 
Lil 


iF 
9999 

LIT> 
9999 
9996 
999% 


9999 


O« 

SGN®* 
Ta004 
A0004 
Qoo04 


11131 


08050 
0000 
CONO 
ANSR 
OLPRN 
HHH 
0000 
000u 


0400 
AQ506 
Q0208 


16050 


i1505v 
Q001le 
OBN** 
A0012 
wO016 


17050 
Qg020 
ad02s 
0000 
CON2 
SQUAK 
Q0035 
wOoOse 
SI1G02 
OTYPE 


iF 


ANSL 
SCaN 


&FNC1 
DIVT2 
ARLTH 
aInsa 
BINER 
00905 
BINER 
Q0Q00 


KON*E 
«OPS 


RA 


RA 
ARITH 
BINSS 
HINER 
900900 
SINER 
00900 
BINS3 
~OPS 
ARITH 
BINS 
BINER 
00900 
iF 

LF 


BINSS 
iF 
LF 


alNOP 
SCAN 


SLLASTERISK 


BlL2eMULTIPLY 


FLOATING SUBSCRIPT OR IeA ERROR 


A*I ERR 


BISeLEFT PARENTHESIS 


BiseDIVISTON 


1/A ERR 


A/T ERR 
8200eE XPONENTIATION 


Tee, ERR 


822eAND,OR 


B825e¥ORQD IF 
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ci ee ee 
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2577 
2576 
2579 
2580 
2581 
2582 
25383 
2564 
2585 
2586 
2587 
2588 
25389 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2596 
2599 
42600 
2601 
2602 
2605 
2604 
2605 
2606 
2607 
2608 
2609 
26 10 
2611 
26i2 
42615 
2014 
2615 
2616 
2617 
26j,8 
2619 
2620 
2621 
2622 
2625 
2624 
2625 
2626 


2109 
05a3 
9526 
410g 
9512 
2053 
2218 
2642 
2426 
1810 
0642 
L246 
9589 
2012 
2010 
2016 
2618 
2015 
0195 
2410 
22is 
281s 
1820 
2216 
0198 
2610 
2416 
3052 
2250 
2253 
24915 
2810 
2601 
2611 
1400 
3041 
3001 
2612 
2412 
2861) 
3010 
2616 
2020 
22<0 
182} 
2424 
2046 
3526 
0556 
Q340 


388 
388 
886 
385 
8368 
385 
388 
38B 
388 
388 
68s 
888 
386 
396 
386 
388 
388 
885 
686 
388 
368 
388 
38s 
386 
888 
838 
888 
866 
386 
888 
683 
388 
386 
386 
386 
= he Ds 
686 
386s 
¥8B 
1 1-) 
S388 
388 
38s 
388 
388 
388 
385 
B88 
388 
38B 


eee oeoeeece CGC GCGe Ge OK ke eee & OOF CCC Fr COC Cer CCC Ge Ge & Cr OCS 


S221 
0326 
1406 
0001 
1051 
0000 
0001 
2228 
0000 
4140 
O2k4 
4206 
1810 
0000 
2212 
2618 
0020 
0000 
0000 
2212 
2215 
i820 
2000 
9996 
09090 
OGOA 
0000 
9998 
0000 
9998 
9000 
9999 
3010 
9998 
2811 
9999 
2412 
5014 
1615 


41615 


0115 
9997 
2822 
3022 
3022 
2626 
1300 
4854 
O33R 
0942 


0523 
0526 
8428 
0512 
2053 
2218 
2622 
2426 
1810 
96482 
1246 
000a 
2912 
2010 
2915 
3336 
9000 
0008 
2410 
2215 
2818 
451g 
Qg000 
0198 
2610 
245 
3052 
2250 
2253 
2810 
2810 
2861 
2611 
14650 
3011 
3001 
2612 
2616 
2616 
2616 
2616 
2020 
1617 
2424 
2424 
1628 
90co0 
J536 
9340 
4514 


IF % 


COLON 


EXPL 


EXPLS 


Ife 
DOF 


&IF i 


-IFi 
IFs 


~-IF2 
MCAL 
&IFa2 


&IFS 


«FS 


LOL 
TES 
LOX 
IIRS 
LOL 
STL3 
TIR2 
LDA 
STA2 
Lut 
LDA 
STA 
LOL 
LOA2 
ADD 
LDA 
CON 
STA2 
LDA2 
ADD 
LOL 
LDA 
CON 
LOA 
SHL 
aDoD 
LOLS 
LDAS 
STAS 
STL3 
DAS 
LOL 3 
TED 
LOLS 
TES 
LDAS 
TEO 
LOX 
t.OX 
LDXx 
LOX 
TIRS 
LOL 
LOL 
LOL 
LOA 
con 
STA 
Luk 
LDA 


MUP 
-oP3 


COLON 


EXPL 
ExPlLd 


Ru 
OOlF 


“IF 1 
NOMAL 
90006 
Ru 


“IF2 
MCAL 


ALARM 
00000 


~IFS 


iF 
1F 


+50 
+50 
+50 
+02 


B260e Il F-LEFT<PAREN 


B27eF INISH IF “STATEMENT 


EXTRA COMMA 


MISSING COMMA 


MISSING SUBSCRIPT 


Ne ee Ce Oe eee 


26047 u9S2 888 J 32 2425 YO00 “ON 32242 50 900 MISSING LEFT PARENTHE SIs 

2026 0338 dBA 0 07 «+1066 4898 i Ii® TOOLs OlvRt 

2629 1629 388 5 30 1831 1633 MRP LoL oF 

2630 1633 386 0 25 0635 4514 LOA ALARM 

2031 0655 88B J 32 2200 2500 Cor 32220 02500 MISSING RIGHT PaRENTHESIS 
2632 1831 888 2 07 1063 4698 1 IIR Too13 uUlvat 

2635 8 NOP 8389.GENERATE MACHINE OP 


26045 BINSS S9OeGENERATE LIBRARY REF 


2652 
2655 
2054 
2655 
2656 
2657 
26 ,& 
2659 
2660 
2661 
2665 
2664 
2665 
2072 
2676 
2079 
2680 
2081 
26a2 
2085 
2684 
2685 
2686 
2687 
2066 
2089 
2690 
2691 
2692 
26935 
2694 
2695 
2690 
2097 
2096 
2699 
2700 
2701 
2702 
27905 
270% 
27y5 
27Q6 
27Q7 
2708 
2709 
27190 
2711 


- 2712 


4217 
2219 
28<3 
28<6 
#110 
2113 
2612 
30142 
3018 
1813 
22i7 
2013 
2417 


0478 
22i3 
1633 
0656 
2413 
2617 
2420 
2225 
9398 
2613 
2816 
2813 
2817 
3045 
2433 
O895 
5016 
L8<8 
2054 
2655 
3017 
2820 
22553 
0856 
0408 
2620 
2419 
2624 
2053 
2907 
2519 
232} 
2619 
2819 
2644 


336 
383 
888 
388 
88s 
388 
386 
388 
388 
3886 
88B 
888 
38B 


385 
388 
38B 
388 
388 
366 
668 
388 
338 
888 
888 
338 
398 
388 
386 
388 
885 
388 
386 
386 
336 
8868 
8865 
ses 
888 
388 
386 
8as 
366 
388 
886 
385 
388 
BSB 
388 


Ccr ce Crre CGcec 


ecocecccr Gere COC Ce fC Ge ere Cr Ge C$Or CCG eK C Ce 


30 


82 
07 
07 
39 
60 
25 
60 
25 
60 
30 
05 


29 
30 
82 
30 
25 
87 
25 
35 
30 
S2 
25 


60 
25 
64% 
25 


70 
30 
29 
b2 
30 
82 


20 
425 
35 
60 
QO 


70 
30 
25 
82 
05 


2219 
4221 
2825 
1050 
HHH 
0000 
0001 
4016 
0002 
1815 
0005 
2615 
2009 


0000 
4U31 
0636 
9999 
2815 
oooc 
3023 
9996 
1600 
O00c 
9999 
3015 
9999 
1051 
0000 
9999 
0900 
QOO0A 
1051 
0000 
2620 
4831 
2620 
4016 
9999 
9999 
2021 
9999 
oo0oc 
4ui17 
2321 
Q00! 
2009 
2624 
3024 


gouy 
2523 
2220 
4086 
alls 
2812 
3012 
3018 
18135 
2217 
2013 
2417 
4255 


2213 
1833 
o00¢ 
2413 
2617 
2420 
2225 
0398 
2615 
2816 
2815 
2817 
3013 
2453 
Q00C 
3016 
1828 
2033 
2653 
3917 
2820 
2233 
J836 
U468 
2419 
2419 
2624 
o00¢c 
Q00€ 
2319 
QO00A 
2619 
2819 
3024 
3478 


ARRAY 


TARA® 


INDEX 


PNSUS 


&PN 


~PR 
ARA® 


LOL 
LDL 
TEQ 
IIR 
Tir 
ERSS 
STA2 
LDA 
STA2 
LDA 
STA2 
LDL 
LDX 


LDA 
LOL 
TEO 
LDL2 
LOASA 
TGR 
LDA 
ERS2 
LOL 
TEG 
LDA2 
SUF A 
STA2 
LDA 
STA 
LOA2 
SHL 
ADD 
LOL 
LDAS 
TEQ 
LOL 
TEO 
LDA 
BUF 2 
LDA2 
ERSA 
sTA2 
JMP 
LDA 
ADD 
LOL 
LDA 
TED 
Lix 


L.PREN 


TOOOV 
HHHr 
0000 
000i 

LIT. 
0002 

FORSS 
0005 

ARAMY 

OARAS 


0000 
BrG2) 


9999 
04997 
RX 
XMC 

9996 
FCMOD 
RX 

9999 
00000 

9999 
CANO 

000u 

9999 

0900 
RA 
CONOo 

000u 


BIGai 
2F 
LITh 
9999 
9999 
HHHHH 
9999 
RX 
RATOR 


oyOi 
VARA 


lF 


SCAN Ae 
UASW 


OlvT.l 
Ale IS WEFT PAREN NEXT 


A2Ze SET ARRAY MODE 
MDOP 

A353. EMIT %¥ O + 

ALOeCHECK INDEX. 
RX 


00000 


04900 
RX 
ALLePOTENTIAL NEGATIVITY 


=PN 


iF 
iF 
HHHH¢ 
RX 


RA 


1F +02 
INDEX 


PROCESSING OF ANRAY SUBSCRIPTS 


2715 
27 \4 
2715 
27\6 
27,7 
2716 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
4731 
27352 
<735 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2745 
2744 
2745 
2746 
27K7 
2748 
2749 
2750 
2751 
2752 
2755 
2754 
2755 
2756 
a757 
2756 
2759 
2760 
2761 
2762 


3084 
5026 
1829 
18uU0 
33999 
3019 
3020 
2425 
3045 
2048 
2853 
2055 
18438 
3053 
1260 
0064 
0266 
2é2ei 
0475 
0279 
2286 
29U0 
2621 
2447 
2450 
gS3a 
1159 
O54) 
0143 
*8d1 
1242 
9678 
208; 
0683 
Q679 
0883 
302) 
2627 
0430 
1642 
1646 
JITS9 
9758 
226) 
ys9a 
28¢5 
2228 
3025 
2029 
2031 


38S 
388 
88B 
386 
388 
388 
383 
385 
386 


388 . 
8B . 


uae 


BBB 


3938 
388 
386 


BBB 


888 
386s 
388 
338 
386 
638 
388 
388 
356 
BSB 
385 
388 
388 
538 
8B 
38B 
338 
3688 
688 
3865 
886 
386 
388 
38B 
386 
886 
3868 
385 
39865 
386 
388 
388 
386 


e&cecr twee Gece oecr Ge coc areecccreCcrr SCr Cacecaeccaecec a GG we & & 


US 
O7 
7G 
60 
70 
25 
77 
35 


30 
25 
18 
20 
60 
25 
70 
30 
85 
30 
32 
65 
25 
73 
60 
07 
8) 


05 
29 
35 
70 
30 


25 


05 
29 
25 
77 
37 


70 
30 
00 
25 
30 
82 
29 
30 
Os 
07 


3026 
00u1 
9997 


9997 


2019 
0001 
5020 
004s 
1845 
2450 
2055 
0015 
2650 
1058 
0008 
0266 
0001 
9998 
00o0c 
0400 
9998 
9999 
000R 
9999 
1057 
8112 
0541 
O145 
0000 
4740 
4225 
0679 
0665 
1300 
2281 
0000 
2625 
2627 
0900 
0008 
O355 
O00c 
Qo0oc 
9996 
2400 
2028 
9999 
4827 
2031 
HARM 


g493 
1829 
1800 
0399 
QOOA 
3020 
2425 
3048 
2948 
2453 
8Si4 
0000 
3033 
1260 
0064 
QO0A 
222i 
ON7s 
U279 
2286 
2000 
262} 
2427 
2450 
4698 
Jugs 
0478 
3893 
282) 
1242 
J678 
2081 
4514 
9000 
9883 
3021 
2627 
J430 
1642 
1646 
0758 
9363 
Jooc 
0598 
2825 
2228 
3025 
2929 
4744 
3434 


ARA*® 


APL & 


@CHFL 


RCHFL 
MAGET 


&MAG 
“MAG 


LUX 
Tir 
aDD. 
STAd 
ADO 
LDA 
ATL 
EkKS 
TEO 
LOL 
LDA 
CON 
SUFA 
STA 
LDA 
ADD 
LOL 
MUL2 
LOL 
SHR 
STX2 
LDA2 
SUB 
STAZ 
IIR 
LOX 
1.Dx 
Lux 
LOAs 
ERS 
ADD 
LOL 
LDA 
CON 
LOX 
LDAS 
ERSA 
ATL. 
SHL 
SUF 
ADD 
LOL 
JMP 
LDAd 
LUL 
TEO 
LOAS 
LEL 
Lox 
IIR 


000) 
9997 
9997 


0004 


XM 
LF 
aF 


18001 
91000 
TOO008 
Ru 


0004 
9998 
RX 
0400 
9994 
9999 
Ru 
9999 
T0007 
SIN*® 


000u 
XK} 
BIGIS 
&CHFL 


11130 

iF 
900u 

coo00u 


090u 


Rt 
81687 
RX 
RX 
9996 
EQUMD 
AEQU 
9999 
7F 


HHA 


FPANSUG 


RA 


ALARM 
30000 
05000 


RA 


aF 

DIVRT 
PNSUS 
INDER 
PNSUS 


~CHFL. 
ALARM 
00900 
MAGET 
00005 


-~MaG 
GET 


ASISN 


Ai2eADJUST MULTIPLIER 


EXTRA SUBSCRIPT 
ALSeEMIT +N ( OO + 


AZOe INDEXING NEGATIVITY 


A2LeCHECK FIXED POINT 


FLOATING SUBSCRIPT 
A22eCOMPUTE SUBSCRIPT 


AZSeEQUIVALENCE DECL. 


A24.WHAf TYPE ARRAY 
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27635 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
4771 
2772 
2773 
2774 
2775 
2776 
e777 
2778 
e779 
2780 
2781 
2782 
27685 
2784 
2785 
2786 
2787 
2768 
2789 
2790 
2791 
2792 
2793 
279% 
2795 
2796 
2797 
2798 
2799 
2690 
2601 
2802 
2895 
2604 
2805 
4606 
2807 
2608 
2609 
28,0 
28it 
2412 


0434 
0638 
3027 
2428 
0432 
1842 
0861 
g264 
o271 


0273 


0697 
2628 
Y676 
9712 
2515 
0301 
28<8 
2251 
O444g 
1247 
5028 
08>a 
2457 
2ae9 
24eg9 
186) 
23158 
0561 
Q164g 
U772 
2%e7 
24951 
0858 
0876 
0780 
1163 
2649 
0657 
2042 
28<9 
0o44 
1899 
2257 
1860 
3029 
206] 
J630 
J850 
3855 
J499 


388 
388 
386 
88B 
388 
386 
338 
335 
888 
88B 
338 
338 
388 
386 
38B 
386 
88B 
38B 
385 
386 
38s 
388 
386 
388 
388 
385 
386 
386 
885 
3868 
386 
388 
888 
385 
388 
385 
335 
388 
388 
388 
888 
688 
388 
388 
368 
386 
388 
388 
888 
388 
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0008 
9999 
9999 
0008 
4740 
4209 
0264 
0400 
0273 
4195 
9999 
4623 
4209 
2315 
4209 
4298 
2231 
0900 
2315 
0000 
1051 
2257 
9999 
3023 
4209 
4267 
4209 
0164 
0500 
1178 
0008 
0400 
4724 
4974 
0780 
9999 
0500 
4740 
9999 
474) 
0008 
0502 
HHHH 
9999 
4209 
0000 
9999 
0200 
1237 
2041 


J636 
3027 
2828 
0432 
1842 
0861 
0264 
0271 
QOOA 
0697 
2628 
0676 
Uv712 
2515 
036) 
2828 
2315 
Ody 
1247 
3028 
0854 
2457 
2229 
2429 
1861 
1899 
0861 
0164 
07724 
0780 
2431 
0836 
3876 
0780 
1183 
2629 
9637 
2042 
2829 
0644 
1899 
0502 
1860 
329 
2061 
0430 
3830 
9835 
3439 
gray 


RA 


oF 


oF 


aF 


8F 


oF 


CHECK IF BASE LESS THAN ~30 


A2SeCODE SSLLLL1I000 


A2Z6eCODE 2858885000 


A27eCODe 1858068PPPP 


AZBeCODE AS SIMPLE VAR, 


2615 
2814 
2615 
2837 
2825 
2826 
2627 
2626 
2829 


| 2830 


2631 
2552 
26335 
2834 
2835 
2836 
2637 
2638 
2839 
2640 
2641 
2842 
2845 
2644 
2645 
28u6 
2647 
2648 
2649 
2850 
2651 


jeea 
O362 
j8al 
1122 
1250 
1657 
1606 
2248 
1650 
1850 
9632 
1256 
2046 
Ja4g 
1654 
1049 
226} 
0272 
0074 
0878 
0634 
03505 
O3048 
0349 
0353 
2030 
2242 
2246 
2054 
2230 


3985 
338 
388 
386 
338 
336 
388 
u8B 
388 
388 
8858 
388 
388 
8a8 


das | 


388 
388 
388 
888 
888 
388 
3868 
888 
388 
886 
335 
9868 
386 
38B 
885 
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Os 
60 
65 
29 
37 
35 
70 
25 
09 
30 
0G 
30 
82 
25 
60 
2s 
05 
30 


70 
08 
30 
3i 
OG 
29 
35 
20 


64 
07 


0004 
4209 
4420 
0001 
0400 
0045 
2248 
0001 
0000 
0652 
0000 
2243 
O849 
0a51 
2245 
4209 
4420 
0074 
oooc 
4301 
0851 
4257 
O349 
9999 
9000 
4740 
0008 
0851 
0000 
9996 


0502 
J5it 
Li2z2 
1236 
16437 
1846 
0004 
1630 
1830 
J634 
1236 
2046 
1049 
ia5u 
1049 
2261 
0272 
0634 
0878 
0508 
445 
g349 
QO34&g 
0353 
2930 
2242 
2246 
2084 
2230 
4140 


INSe 
RARE 
~ARZ 


ARAS 


Ox 
STA 
STX 
LOA 
Sil 
ERS 
ADO 
LOA 
LOxs 
LOL 
IIRS 
LDL 
TEG 
LDA 
STA 
LDA 
LOX 
LOL 
LDA 
ADD 
LIR1 
LOL 
CLL 
TIRS 
LOA 
ERS 
SUF 
SUF 
STAS 
TiR2 
EQU 


RA 
TEMP « 
Tr HPS 
0301 
0400 
XM 


0004 
9000 


000u 
acc 


ARAS 
ACC 
TEMP < 
TEMPS 


RX 
8IG90 
ARAS 
BIGSO 
iF 
9999 
900u 
Xi 
RL 
ARAS 
000U 
99906 
MRP 


oF 


AZPeMOVe SUBSCRIPT 


RA 


InS2 


1F 


1F 


Ins2 
“AR2 
INS 
1F 


NORM X 


; 
cammemtalitnn niacin, clitabaatiant, . danaaeatihien aetaiitins,, canaanediichl, mammiies, Uatinieiniee. Adank, OE cadmas gee, sammeneeee, tain, eee A FT A A LO A a i AAO pl eine enn ine eewtedenine —oteiinneN mo <a et <A noite mens none, cuemunot <omumenAin smimntecet KAnt  —AeT fA 
a 





2652 
2855 
2856 
2857 
2858 
2659 
2860 
2661 
2862 
2865 
2664 
2865 
2866 
2667 
2668 
25669 
2870 
2671 
2872 
2675 
2874 
4875 
2676 
2877 
2678 
42879 
2860 
2661 
2882 
2885 
28a4 
2865 
«Bye 
2887 
2688 
2889 
2890 
2691 
2692 
2u99 
2894 
2695 
28696 
2897 
25698 
2699 
2990 
2961 
29QK24 


41347 
2056 
2521 
0370 
4148 
2519 
1146 
1318 
L117 
1119 
2719 
2430 
2254 
2657 
209 
0472 
0702 
2309 
0912 
191d 
9318 
0397 
2255 
2630 
9854 
0640 
La4a 
2446 
1922 
9639 
244s 
2459 
2830 
2857 
2856 
9599 
2256 
9070 
3030 
1234 
4155 
2122 
1325 
3760 
4125 
4120 
ual 
4122 


88s 
886 
688 
888 
385 
88B 
888 
388 
388 
3868 
8868 
388 
886 
388 
888 
38s 
38B 
388 
3ae 
3aB 
36B 
3868 
3865 
888 
686 
J88 
388 
886 
388 
588 
386 
3388 
886 
385 
388 
888 
388 
388 
38B 
386 
J86 
388 
386 
888 
3685 
388 
386 
386 


2519 
2519 
4118 
0972 
4118 
1116 
1732 
41920 
2919 
1732 
9999 
4301 
4O92 
4G17 
0872 
41300 
1307 
0912 
1914 
9999 
1395 
0399 
0000 
0100 
OOOA 
1728 
2446 
2448 
i724 
2448 
9999 
0000 
4603 
2856 
0599 
2454 
4118 
9999 
1232 
1636 
1920 
1325 
4408 
u860 
1127 
2322 
0723 
0924 


2521 
252} 
9170 
4428 
4118 
Q373 
2719 
1922 
i922 
2719 
2430 
2254 
2657 
0269 
2255 
0702 
2309 
2255 
0363 
0318 
0397 


4350 — 


2630 
0834 
0639 
1244 
Oude 
O319 
9639 
0440 
2454 
2830 
2856 
4799 
3030 
2256 
3070 
4215 
1234 
9173 
2122 
1325 
J760 
1262 
3729 
9729 
W729 
U729 


SIGN 
HOFF 


SINIA 
LOLON 
AQO1S 
AQO18 
AQO17 
Aool9 


“INRA 


&INKA 


&RE 


RE 
3 
LOLOF 


S&EEE 
~EEE 


ASMTR 


FYxF 


EXP 
SINF 
cCOSF 
TANF 


LOL 
LOL 
STL 
LOX 
HLT 
LIRI 


—LIRI 


LOX 
LOX 
LIrd 
LDAS 
ADD 
TIR 
LOL 
TEQ 
LOL 
LDA 
TEQ 
LOL 
IIRS 
LDA 
LOL 
LOx3 
SHR 
ADD. 
LIRI 
LOL 
LOL 
LIKI 
LOL 
TIRS 
LDAS 
ADD 
LOL 
LOL 
LOL 
STL 
IIRS 
LDXx 
LOA 
LDX 
CLL 
LDA 
STA 
Lux 
Lux 
LOX 
LOX 


LDLON 
LOLON 
BINtA 
OR INA 


AQO016 
J003< 
FYXA 
FLOTA 
JOOS 4 
9999 
8IG9V 
4094 
RATOR 


TRCOF 
TRCSW 


9999 
10095 
7F 

000VU 

010u 
RA 
JO028 


JF 
JO024 
oF 
999% 
000u 
81660 
TF 
LOLOF 
BINH 
9999 
TRACE 
cTrre 
FIXA 


BIGO’ 
OTYPa 
EXP 
SIN 
cos 
TAN 


iF 
iF 


a 
ARITH 
iF 

eF 

aF 

iF 


“INRA 
& INRA 


&INRA 
GET 


ASM2 


UNOPS 
ATL 


UNOP 5 
LOLOF 


“EEE 
8 
ASMTR 


OPA 


&ASAL 


aF 
iF 
LF 
iF 
iF 


Ue UNARY OPERATORS AND SPECIAL GENERATORS 


Ule EQUALS SIGN 


Udge REPLACEMENT SETUP. 


U4. REPLACEMENT OPERATOR 


ULOsUNARY OPERATORS 


Ee gp a ef a Se Fg 
a a a a a i ee eh 


2905 
2904 
29u05 
29006 
2907 
2908 
2909 
2910 
29i1 
2912 
2915 
29\4 
29\i5 
29j6 
2937 
2918 
2919 
2920 
2921 
<922 
2925 
2924 
2925 
2920 
2927 
<9at 
2929 
2930 
2951 
2932 
2955 
29354 
<955 
<9 356 
2957 
<958 
2939 
2940 
2941 
2942 
2945 
2944 
2945 
2946 
2947 
2945 
<949 
2950 
2951 
2952 


4123 
4124 
4119 
9729 
1352 
1262 
2651 
2442 
4154 
2941 
i124 
2851 
2042 
410] 
1565 
3046 
2646 
2846 
2648 
4126 
28i4 
3051 
414] 
4142 
0145 
0549 
Q353 
1150 
1652 
0929 
1852 
2842 
4127 
0751 
1353 
lle9 


9356 
1153 
9543 
9109 
1372 
0575 
2654 
2052 
1856 
J0S0 
1844 
1847 


388 
338 
388 
388 
386 
388 
388 
385 
336 
335 
3883 
388 
3368 
385 
386 
338 
388 
385 
3865 
385 
388 
386 
388 
388 
386 
356 
385 
388 
386 
386 
686 
388 
388 
383 
385 
388 


385 
336 
386 
385 
388 
388 
388 
386 
386 
3BB 
388 
3865 


Ooccececceorrecre OCOcCccr cacoacecececeocr CCC Cr otc CK C 


ete Cc Ce ee OCC Ce Oo 


50 
O7 
390 
O7 
82 
25 
64 
OG 
50 
82 
37 
OG 


1925 
0726 
2721 
1332 
0869 
YyOOd 
47409 
2646 
2919 
lied 
0000 
4740 
4140 
0563 
4756 
0860 
1724 
2648 
0500 
1736 
9999 
0004 
0345 
O744 
0001 
O351 
0000 
1190 
1724 
0000 
4740 
0860 
1129 
i333 
0022 
4095 


4140 
9999 
4417 
4092 
o575 
1051 
0000 
0000 
1232 
1644 
1447 
0001 


0729 
9729 
0729 
1332 
1262 
2631 
2442 
2846 
2921 
L124 
283) 
2642 
5046 
1365 
3046 
2646 
1s41 
0336 
9000 
0929 
3031 
1632 
o145 
O14 
0549 
9553 
1632 
1133 
3929 
1332 
2842 
1941 
O731 
4514 
9025 
4428 


4514 
4114 
y1l69 
i372 
1629 
2654 
2932 
1836 
jO4O 
1844 
1847 
1351 


ATANF 
L NF 
SURT: 


FLOTF 


BCOMP 


ABSF 
SQUAR 


WOPOZ 
WOSTP 


POZS 


OPC 


NOe 
POZe 
NOMAL 
ROOLS 
NOS 


LIRI 


LIRI 
I1R35 
LOX1 
LOX 
LOX 
Tire 
LOL 
STL2 
LIRS 
LIR1 
LDAS 
ERS 
STA 
LOL 
LDA 
CON 
LDX 
EQU 
EGU 
LOL 
TIR2 
LOL 
IIP 
TES 
LUA 
STAS 
TirR3S 
LOL 
TES 
TGR 
ITjR3 


ATAN 
SORT 


OTYP«e 
900”U 

Al 

ic 

FLUTA 


9000 


NORMA 
COMPL 
BIG0e 
OTYPE 
Jou24 


5405” 
JOO36 
9999 
0004 
P AUSF 
STOPF 
0001 
POZMD 
000u 
RAND 

J9024 
o00U 


OTYPE 
iF 


1800¢€ 
GOPO 
&IFL 
NOe 
NORMX 
9999 
RATOR 
4“o9e 


CONO 
9000Vu 
000VU 

CRANV 

LF 

xc 

0001 


LF 
LF 


oF 


aF 


SF 


SF 

iF 
UNOP 
NOMAL 
00000 
i 


F(I) ERR 


aF 


3 Cl) CA 


2F 
SOULS 
iF 


UNOP 

THIS OPERATOR IS PERMANENTLY ON THE SUTTOM 
OF THE OPERATOR STACK+IS ACTIVE ONLY ON AN 
EXTRA RIGHT PARENTHESIS 


ALARM 
20025 
~op3 


ALARM 
SIGNS 
ULZeEND OF STATEMENT 


MRP 


me eee —— = 

oe gunaamdy 

ee 
—_ —— ese 
ee  -——™ 
ee eee eee 

me 
——S}—— 


2955 
2954 
2955 
2956 
e957 
2958 
2959 
2960 
2961 
2962 
2965 
2964 
2965 
2966 
2907 
2968 
2969 
2970 
2971 
2972 
2975 
29748 
2975 
2976 
2977 
2976 
2979 
2980 
2981 
2982 
2965 
29 a4 
2965 
2986 
2967 
2988 
29389 
2990 
2991 
2992 
29935 
2994 
2995 
2996 
2997 
2998 
2999 
20909 
2001 
20u2 


165) 
285a 
1647 
203} 
3054 
2436 
1644 
1249 
24355 
2047 
1258 
J363 
2252 
2452 
20356 
3042 
3041 
2247 
0292 
2052 
1862 
0274 
BLS} 
1953 
J335 
y373 
1776 
2852 
1255 
1657 
1655 
3052 
2256 
9859 
20u4 
1276 
2433 
13855 
2e4q 
2447 
2037 
12359 
2444 
2647 
1176 
JjJ9SO 
9882 
2633 
2055 
1659 


338 
BBB 
386 
388 
uBB 
386 
BBB 
386 
B86 
888 
3868 
388 
aaB 
888 
386 
388 
d88 
388 
ase 
38B 
888 
u8B 
386 
asB 
3868 
388 
38B 
a8B 
386 
388 
888 
388 
388 
888 
38B 
886 
386 
J8B 
888 
388 
aes 
B88 
388 
gas 
388 
838 
888 
o3B 
u8B 
886 


2854 
2800 
9999 
3054 
0028 
0575 
2047 
0851 
OS43 
2243 
1190 
1819 
Q000 
0100 
QOOA 
1728 
41724 
4740 
0000 
0860 
0960 
2645 
3933 
0335 
4221 
1176 
4974 
1235 
1837 
4140 
9001 
1634 
0839 
2044 
4824 
0002 
4855 
7989 
2447 
0000 
1239 
0001 
2647 
4151 
0002 
0562 
9999 
2035 
a237 
2241 


2456 
0000 
205) 
2456 


gooo 


4Siu 
1249 
2455 
4229 
4140 
9000 
2232 
2432 
2036 
3041 
2247 
2247 
0292 
2632 
1862 
0274 
2645 
0642 
4oug 
9873 
1776 
24832 
1635 
3089 
4736 
3032 
2236 
gas9 
2244 
1276 
2433 
2037 
9000 
2037 
00c0 
3377 
24uy 
2647 
4486 
3980 
4927 
2633 
642 
1639 
4238 


1 
CRAND 
GET 


&GET 
~GET 


WOGO 


LDA 
CON 
TIRS 
LDA 
CON 
LOL 
LOX 
LIRI 
LOL 
STA 
JMP 
STL 
LDXx3 
SHR 
ADO 
LIRR’ 
LIRL 
LOA 
ERSS 
STA 
SHR 
CL.X 
LOL 
LOL 
LOL 
TEQ 
LOL 
TGR 
LOL 
LOL 
STAS 
LOA 


STAS 
LDA 
CON 
LDA 
CON 
LDL 
TIRS 
CLA 
LDL 
IIR2 
Lax 
STL2 
LoL 
Luh 
Lin 


52280 
9999 


18002 
4A 
LF 
ARAS 
NOS 
ACC 
RANO 
&SAC 
0000 
0100 


J0028 
JOO24 
Xi 

0000 
OTYPE 
0900 
UNOP 2 


LPREN 
LF 

BIG1YU 
NORMA 


0001 
DOTAG 


DOVAR 
000¢ 
68796 


69000 


00g4 


wOUIM 
0002 


999% 


GOMD 
0GOs 


5F 
00000 
SF 


goood 
ALARM 


REM 
NORMX 
OY00 


-Gc.T 
1F 
iF 


EXPL 
SCAN 


aF 
usw 
GOTO 


aF 

SF 

90u909 
00000 
ASM11 
FILUP 
INCUG 
EXPL 3 


MDUP 1 


MISSING OPERAND 


EXTRA OPERANO 


SUBROUTINE TO 3RING OPERAND 


WORD %GOF 


ITRLO STAS UMP2 


JMP 2 


INTO REGISTER A 


wan i SS SSS NS SSS SSS SSS SSS 
Tr ee ee es 
ane a 
vu ee ee ‘ean ae 
+ : — 
oF rh es 


IUQ9 
2094 
30g5 
2006 
2007 
S0U8 
3009 
2010 
SUL1 
5012 
2013 
S014 
5015 
3016 
2017 
3018 
9019 
3020 
2021 
2022 
2023 
20E4 
5025 
3026 
3047 
50g8 
50249 
2030 
2031 
3032 
3035 
5034 
9035 
2036 
3037 
30358 
2039 
3040 
3041 
3042 
30835 
20448 
3045 
2046 
I047 
5048 
2049 
3050 
9051 
20S2 


2855 
2255 
399} 
1142 
1778 
9762 
3033 
2855 
a5K7 
246] 
g6653 
1267 
2308 
4128 
1330 
1676 
Q479 
1634 
2436 
9240 
2044 
2254 
0682 
9964 
g4oe 
4150 
1932 
1134 
9736 
248 
9753 
0325 
9959 
J910 
1912 
9716 
ol PF -} 
4151 
0795 
1359 
2644 
3047 
24934 
2654 
2656 
244} 
30Nq 


2655 


0902 
2854 


386 
386 
986 
388 
38B 
886 
385 
888 
888 
38868 
386 
388 
3868 
8388 
38B 
388 
388 
338 
38B 
88B 
888 
38B 
388 
888 
388 
388 
866 
388 
38s 
388 
388 
888 
8868 
386 
388 
$868 
8368 
3368 
886 
886 
888 
J8B 
386 
383 
386 
3865 
388 
3868 
3868 
38s 


Cer Cece’ & re Cr er O&O ke OGe Ct CoC Ge rf Cc Cer CCE Cac ace Oe CC OeC Oe e& Oo Ge 


2235 
0089 
&14GO 
4926 
9999 
0001 
2435 
0043 
4209 
0663 
0008 
4756 
4926 
1330 
1074 
2235 
2235 
2436 
1638 
2644 
9999 
4860 
o484 
9998 
3999 
1932 
1134 
0736 
4196 
0550 
0855 
9999 
0108 
1912 
9002 
O518 
9998 
1355 
ooo! 
9000 
HHHH 
0000 
Q00! 
2636 
0000 
0002 
4600 
4600 
9002 
1907 


3642 
o49) 
1142 
1778 
3782 
3033 
900¢ 
2847 
246) 
4927 
1267 
2308 
¥8oy 
4ouK 
1876 
O479 
2818 
9363 
g240 
O377 
2234 
3682 
4736 
J488 
4114 
0642 
4428 
go00 
9148 
J753 
4357 
3959 
9910 
4142 
O716 
3930 
$215 
U7PSS 
1359 
4146 
3O4u7 


- £434 


2634 
900k 
2451 
3044 
2685 
0902 
2es4 
1910 


GOr 


$S0SuUa 


GOS 


4aSsi 


AsSSe2 


wODI™ 
INSMD 
TSMO1 
MIM 


LOL 
LUX 
LOL 
STL 
TIRS 
LDAS 
LOL 
ERS 
STA 
Lox 
LDA 
LOL 
LOX 
LOL 
LOL 
TEQ 
LOL 


LDAA 
LOL 
LDA2 
STA 
LUL 
TiRe 
TirRs 
LOL 
LDX 
$UB 
LDA 
ADD 
LOL 
ITIRS 
LOX 
LOL 
TIRS 
LOL 
TIRS 
LDL 
IIR2Z 
STL2 
IIR 
ERSS 
STA2 
3UF 
LIRL 
IIR 
ADD 
STA 
STA2 
ADO 


LF 
usw 
NORMA 
exITs 
9994 
0004 


XM 
TEMP 2 


Ru 
BIGO02 
EXITS 


’ 

18 

18 
7877U 


9999 
NXLOC 


9998 
9999 


ASS2 
UNTQU 
BIG29 


9999 
LSWOF 


090d 


9996 
DiMMo 
ou0h 
000»u 
HHMiH 
0000 
0004 


000u 


0002 


MEML 

MEML 
000<¢ 

TWOF9S 


EXPL: 


GOSU 5 


KX 


INCUQ 


ASMS2 
SCAN 


MCAL 
GE 
60000 
ASM11 


GOTO 


STa8 
EXPL 3 
~ OPS 
09090 


ASS 3 


GOsVU3 


&SATR 
OPX 

INsMoO 
ISMDi 
NOR™MX 


RA 


ULGeEND COMPUTED GO, 
ADDUA JMP UZACC 


UL7.WORD "ASSIGN? 


UlSe ASSIGN OP 


W2le*OIMENSION® 


meme RL a let AARON I, a tue, so, tbe, aOR ee | AE cei ee 
4 A a A CN A Nl i mettle cote meetin elec phemetsio emer —— 
. ace, pemememi ponteesetmei, tenet, ements ee emee n 
7 i ee ee es ee 


3u55 
2054 
3055 
2056 
2057 
2058 
3059 
3060 
2061 
3062 
5V65 
5064 
2065 
2066 
5067 
3068 
5069 
9070 
2071 
5072 
3073 
30748 
2075 
3076 
9077 
2078 
3079 
2080 
2U8l1 
20824 
3085 
2044 
20859 
S086 
5087 
3068 
3089 
2090 
3091 
3092 
2095 
2094 
3045 
I096 
SU97 
JU98 
JUG9 
3100 
9101 
21oZ 


1910 
2313 
3054 
1838 
2076 
0280 
2655 
1839 
1649 
2855 
2459 
0863 
0465 
2838 
2038 
3055 
2059 


O47 1 
9474 
2856 
0440 
2848 
3036 
2259 
3055 
1902 
9704 
2657 
2276 
1283 
4139 
1342 
3037 
2439 
2258 
2476 
0687 
0799 
24936 
3048 
2251 
2600 
2658 
2858 
1849 
2656 
2659 
26359 
2841 


3sB 
388 
8BB 
388 
388 
386 
388 
388 
388 
386 
338 
38B8 
386 
388 
886 
388 
388 


386 
aes 
Jes 
386 
688 
388 
388 
BBB 
388 
388 
388 
386 
88B 
3BE 
388 
388 
388 
388 
586 
388 
388 
3868 
38B 
388 
388 
386 
368 
388 
886 
6BB 
388 
385 


cece occecceccacacoccace 


oOorcaccrcGacr Cccce Ge CCce Ce Ge CCCcec¢c cote ¢& 


77 
29 
05 
35 
20 
64 
25 
20 
35 
05 
25 
70 
35 
07 
60 
30 
05 


07 
39 
QS 
70 
30 
07 
70 
60 
70 
65 
85 
32 
65 
07 
39 
70 
30 
85 
32 
25 
37 
32 
77 
25 
70 
$0 
07 
07 
87 
30 
25 
O53 


1910 
0000 
QOOA 
“4724 
0008 
0000 
000c 
8247 
4201 
0004 
0008 
0465 
0000 
0001 
0005 
2437 
264) 


HHHH 
9000 
OOOA 
2a48 
0001 
0001 
4600 
4600 
0704 
0000 
9999 
o400 
9999 
HHHH 
0000 
2439 
0001 
9999 
0800 
9997 
0200 
0600 
3048 
9998 
2638 
0000 
9996 
FEFF 
2837 
2837 
2841 
3500 


2313 
S034 
1838 
2076 
0280 
2635 
1839 
1649 
2855 
2459 
0863 
QOOA 
2835 
2038 
3035 
2939 
4235 


Oa7y 
28636 
O440 
OO0A 
3036 
2239 
30558 
i902 
JOOA 
2637 
2276 
1283 
2837 
1342 
3037 
QOOA 
2236 
2576 
0687 
0799 
2438 
3048 
225) 
2600 
0004 
2838 
1sug 
2656 
2659 
2639 
4514 
g000 


DIMS 
OMe 


OMS 


ATL 
LOAd 
LDXx 
ERS 
SUF 
STAI 
LOA 
SUF 
ERS 
LOX 
LOA 
AOD 
ERS 
IIR 
STAZ 
LOL 
LDX 
EQU 
IIR 
ERSS 
LOX 
ADD 
LOL 
TIR 


ADD — 


STA 
ADD 
STX 
MUL2 
SHR 
STX2 
IIR 
ERS3 
ADD 
LDL 
MUL 2 
SHR 
LDA2 
SHL 
SHR 
ATL 
LDAZ 
ADD 
STL 
LIR2 
TIR 
TGR 
LOL 
LDA 
CON 


00090 


AC 
RL 
0000 


BIGSO 
KOM 
RA 

RL 


900u 

0001 

0005 
OYMMU 
ONIMs 
MRP 

HHMri 

000u 
Ra 


0001 

000i 
MEML 
MEML 


0000 
9999 
0400 
9999 
HH 
000u 


00014 
9999 
0800 
9997 
0200 
0600 


9996 


000U 

9996 

FRFF 
UiMe 
OiMe 


03350 


RA 


MDOP 


RA 


RA 


Dire 


RA 


RA 


ALARM 
00000 


30 + ERS & STX 


BAD DIMENSION 


= 3105 


2104 
2105 
2196 
I107 
2108 
2109 
3110 
Pia 
PLi2d 
3115 
3144 
2135 
3116 
o1i7 
3146 
319 
3120 
5121 
2122 
3123 
3124 
2125 
7126 
3127 
2128 
3129 
9130 
2131 
I132 
3133 
3134 
2135 
5136 
3137 
3138 
I139 
2140 
F141 
I142 
F145 
J14a 
3145 
7146 
I147 
3148 
2149 
31590 
2153 


2857 
28e2 
4152 
3756 
3038 
238 
9754 
9327 
2859 
2049 
3039 
O711 
J750 
1763 
0568 
2800 
1249 
1883 
1640 
2249 
1862 
0466 
0969 
1840 


o528 
1930 
4132 
0579 
4156 
1742 
1356 
i741 
2102 
4133 
1339 
1756 
1338 
0587 
4137 
1943 
1956 
1942 
1759 
4166 
1772 
2040 
1771 
2060 


386 
3968 
3BB 
338 
388 
388 
388 
388 
388 
38B 
388 
a8B 
338 
388 
388 
888 
385 
386 
385 
388 
BBB 
888 
368 
385 


3868 
888 
388 
3868 
388 
886 
388 
yv86 
3886 
388 
388 
388 
386 
3858 
388 
398 
388 
388 
388 
386 
388 
38B 
386 
386 


ecctcorcececeec cecerac ccc = & 


9999 
9999 
0754 
2220 
0840 
0001 
HHHH 
0000 
2049 
ooo! 
0045 
4196 
4651 
0008 
4198 
1240 
4631 
0000 
9999 
4930 
1064 
0469 
1821 
2220 


1930 
2300 
4277 
4ao4 
000A 
4805 
1300 
1855 
1307 
0004 
4804 
47355 
4975 
4e63 
QOOA 
4804 
C057 
0007 
&3356 
OOOA 
§3aGq4 
&758 
%651 
4961 


$140 
1133 
0756 
3038 
0755 
O71) 
0557 
2239 
QOOA 
3039 
U711 
0750 
i783 
0388 
2800 
4833 
1883 
1640 
2249 
1882 
0466 
4140 
1846 
1133 


4514 
y000 
JS79 
4050 
474) 
1356 
2162 
2102 
4050 
1338 
1756 
3587 
J587 
4050 
1942 
1956 
4759 
1759 
4050 
177) 
2040 
2960 
2060 
4950 


mime 
OiMs 
4OCOM 


come 


EQls 


coms 
BED 


WDNO 


WOTKC 
&TRC 


WOLIS 
&LIS 


eLIs 


i 
wOCOR 
&COR 


COR 


wOFRG 
&PRG 


=PRG 


TiRS 
Tips 
LUA 
STA 
LDL 
IIR 
IIR 
ERSS 
ADD 
LDA 
ERS 
LOL 
STL 
Abo 
STA 
LOL 
BUF 
STAI 
IIRS 
LOA 
LOL 
TEQ 
LDA 
STA 
EQU 
LDA 
CON 
LDA 
STA 
AbO 
STA 
LDA 
LDA 
STA 
ADD 
STA 
LOA 
LDA 
STA 
ADD 
STA 
IIR 
IIR 
STA 
ADO 
STA 
LDA 
LUDA 
STA 


9999 
9999 
1F 
UAS# 
cCOMMO 
0001 
HHHH 
0000 


0001 
AM 
COMON 
TEMP 1 


RL 
COMON 


TEMP] 
0000 
9999 

LAST 

$ 

Eqs 

MISUS 

UAS¥ 

COMe 


03230 
81G50 
NOTAG 
RA 
NOTAG 
TRCOF 
TRCON 
TRCSW 
Ra 
NOTAG 
PROF 
PRON 
PRTSW 
RA 
NOTAG 
0057 
0007 
INCRE 
RA 
NOTAG 
PCHOF 
PCHON 
PCHSW 


NORMA 
BOOL s 


INSMO 
2F 
R& 


2F 


aRe 


NORMX 
HOOL $ 


ALARM 
09000 


SCAaN1l 
«TRC 


iF 


SCAN1 
“LIS 


lF 

1F 
SCaNi 
=COR 
1F 

\F 
SCAN1L 
=PRG 
iF 


SCaNi 


Ud7e * COMMON? 


BaD EQUIV 


U29eCONTROL WORDS 


z 

- 
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2152 
2155 
3158 
2155 
2156 
3157 
3158 
3159 
3160 
2162 
2165 
3164 
2165 
2166 
3167 
3166 
3169 
3170 
3171 
J172 
J173 
o174 
3175 
3176 
2177 
3178 
3179 
2160 
2181 
21lg2 
2185 
2164 
3185 
2186 
2187 
21668 
5189 
3190 
2191 
21g2 
3193 
3198 
3195 


3196 — 


3197 
5198 
3199 
2200 
3201 


4100 
4138 
2142 
0546 
0358 
2240 
2449 
3096 
2669 
245) 
2440 
2640 
2840 
094g 
0954 
9168 
9970 
1370 
O374 
4164 
3040 
2e4ug 
2850 
3057 
2859 
1097 
O74) 
144 
0798 
$000 
2049 
0858 
9999 
2461 
3049 
5050 
1998 
2801 
2851 
0675 
3051 
2058 
2258 
1921 
0691 
gU95 
9098 
2458 
2200 


388 
366 


BBB i 


386 
386 
388 
$88 
38B 
3868 
388 
886 
3586 
8688 
886 
38s 
3868 
888 
366 
385 
888 
386 
386 
3888 
336 
sas 
386 
888 
38B 
B86 
388 
886 
3868 
686 
388 
8868 
386 
688 
888 
3868 
386 
386 
368 
358 
385 
38B 
S88 
888 
385 
a8e8 


4740 
2142 
o944 
4206 
0001 
0002 
2451 
4117 
0671 
0000 
3025 
0000 
2056 
4402 
4206 
0970 
4140 
1972 
1976 
0000 
2212 
1074 
9998 
2859 
4745 
4789 
HAH 
9996 
3000 
0001 
2631 
9997 
1079 
0001 
1634 
18508 
2661 
0000 
8723 
9998 
2661 
1654 
0509 
0089 
9995 
HHH 
0005 
2260 
oool 


2142 
2142 
0846 
0358 
2240 
2449 
3056 
9669 
1359 
24540 
26460 
2840 
5056 
0954 
9008 
2912 
9883 
O374 
4164 
3046 
2349 
4086 
3057 
0283 
1997 
O78} 
Li4a4 
9798 
OOOA 
2649 
J358 
9999 
248i 
3049 
3050 
18564 
2861 
2951 
9875 
3051 
2988 
225a 
191} 
J691 
O95 
9098 
2458 
SOOA 
2658 


wOD0 
WOTRU 


#wO001 


DOe 


00s 
00$5S6 
0031 


“002 
&002 


LOX 
CLX 
LDA 
STA 
STX2 
IIR 
LOL 
STL 
LOL 
LDA2 
ERS 
STA2 
LOL 
LOL 
STL 
LOL 
LOX 
LDL 
STL 
LDA2 
ADD 
TIR 
TiRe 
LOX 
LoL 
STL. 
IIR 
ERSS 
ADD 
LDA 
STA 
LDAS 
STA 
ERS2 
ERS 
CLL 
TEG 
LDAS 
ERS 
ERS3 
TES 
STL 
LDA 
STA 
TIiRS 
IIR 
ERS3 
AbD 
LDA 


Xl 
iF 
3F 
LES 
role loR | 
0002 
le 
SIGNS 
QOMO 
0900uU 
AMC 
000u 
HOFF 
LEOFF 
LeESW 


NORMX 
000 
EXITS 
0000 
BIG4O 
Teo24 
9998 


TROFF 

TRSW 
HHHH 
9990 


000k 
DON 

9997 
T9029 

0001 
OOTAG 


DONT 
O00VU 
KONeS 
9990 
OONT 
DOTAG 
LSWON 
LSw 
9995 
HHA 
0005 


0001 


wOUOL 


aF 
ISMOl 


25 

RL 
OOIF 
MAGET 
00$Sa 
00$1 


-002 
OIvT.L 


CLACC 


RA 


RA 


De 


Dle 


De 


DSe 


O66 


O7e 


Dae 


DO LOOP CONTROL 


SET UP FOR LASEL 


ZERY COMMA COUNT 


CHECK COMMAS 


STORE EXP IN TEMP 


00 UR DONT 


BEGIN 000 


S2uz 
3205 
3204 
2205 
22906 
2207 
5208 
3209 
3210 
J2i1 
3212 
3215 
2214 
3215 
3216 
5217 
3218 
32149 
3220 
5221 


J4a2 


3245 
3224 
3225 
3226 
3227 
3228 
5229 
3230 
3231 
2232 
32535 


4958 
3990 
2377 
1180 
2858 
2460 
3058 
2002 
0464 
1867 
30359 
2676 
1278 
260) 
2860 
9664 
3060 
2262 
0666 
9270 
9672 
4157 
O76) 
3763 
0460 
2082 
Oa9i 
1972 
3061 
O746 
2153 
1156 


386 
386 
388 
385 
388 
3BB 
388 
388 
388 
388 
386 
388 
886 
888 
388 
3868 
38B 
886 
388 
3868 
386 
886 
386 
866 
88s 
3as 
368 
388 
396 
386 
386 
386 
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20 
60 
07 
39 
70 
25 
20 
39 
07 
39 
60 
25 
19 
34 
0G 


30 
0S 
25 
30 
07 
0G 
25 
74 
30 
25 
60 


20 
05 
08 
30 


1388 
1375 
HHHH 
0003 
2460 
0001 
2660 
0464 
HHHH 
0002 
sa24 
1278 
7574 
9998 
0001 
0000 
2262 
9999 
0668 
0672 
1078 
9995 
0763 
2079 
2082 
4989 
4789 
2651 
osuK 
0531 
0537 
o543 
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0390 
2577 
1180 
2858 
gooa 
305a 
2062 
4350 
1867 
3059 
2676 
0480 
202) 
2860 
0664 
3060 
0363 
0666 
0270 
0377 
4698 
0761 
0480 
0600 
0377 
9891 
1976 
306) 
J746 
2133 
1136 
UNS 





DONT 


DONT 1 


DOO 


SUF 
STA 
IIR 
ErSS 
ADD 
LDA 
RUFA 
LOL 
IIR 
ERSS 
STA 
LDA 
CON 
LOLS 
IIRS 
STL3 
LOL 
TIRS 
LDAR 
LOL 
IIR 
TIRS 
LDA 
CON 
LOL 
LDA 
STA 
LDBa 
BUF 
LOx 
LIRi 
LOL 


100865 
10075 
HHA: 
0003 


0001 
08000 


HHH 
0002 
DOVAR 


19757 
9998 
000! 
0000 


9999 
06190 


TALS 
9995 


74207 


TRON 
TsSwW 
DON 
NINEF 
TwOS 
vOOST 
NOS 


ct ea I ae 





09999 
ASN2 


7F 
42021 


GET 


00000 
ASM11 
OIVRT 


7F 
90000 
ASMLEL 


EAITS 


INS 


SF2H TIRIN LOLS TGRGF MKOF 
OLOseLOA INIT 3F 


UZACC 3F2H 
V+ INC 


Olle 
LOLa TGRSF STAS UZaAcc 
DigeLOlLe TGx 
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3234 
3235 
3236 
3237 
3238 
3239 
2240 
o241 
2242 
2245 
2244 
3249 
2246 
S247 
3251 
2252 
3253 
3258 
2255 
3258 
2257 
5258 
2259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
5267 
5268 
3269 
I270 
2271 
2272 
2273 
3274 
3275 
3276 
3277 
2276 
3279 


2280 5 


5261 
2282 
3263 
32984 
3285 


4226 
2402 
3955 
9558 
0900 
2662 
2862 
0866 
3062 
1264 
1863 
211) 


4158 
1360 
9304 
o368 
2003 
0870 
24263 
2298 
g34a 
1953 
1798 
2463 
2603 
2863 
1866 
1878 
06680 
4o29 
402s 
3063 
0693 
1297 
2099 
2302 
9743 
0347 
4oaq 
1864 
0417 
4027 
2007 
2064 
2331 
2264 
1266 
i978 


888 
388 
888 
88B 
888 
388 
883 
585 
366 
888 
38a 
336 


388 
388 
386 
386 
38s 
888 
386 
386 
388 
888 
886 
888 
886 
8658 
386 
3868 
388 
336 
883 
38s 
388 
388 
388 
386 
388 
SAB 
388 
388 
3868 
388 
388 
38B 
388 
383 
346 
386 
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25 
30 
52 
350 
05 
65 
05 
30 
30 


70 
60 


30 


30 
25 
32 
35 
76 
30 
70 
60 
75 
60 
29 
06 
22 
70 
29 
30 
05 


50 


25 
30 
07 
35 
20 
30 
30 
77 
25 
30 
35 
60 
25 
O35 
50 
29 


0000 
1355 
2844 
0960 
3022 
2220 
0864 
1600 
4264 
0000 
4408 
0000 


4360 
0562 
0166 
0000 
0400 
0406 
4095 
4196 
0008 
4196 
4097 
0001 
0000 
1866 
0900 
0680 
0000 
3065 
0417 
4191 
0295 
2099 
HHHH 
4191 
0345 
0749 
1864 
1864 
0008 
4625 
0043 
8209 
0001 
2066 
1976 
0060 


2462 
0955 
0558 
0362 
2662 
2862 
0866 
4234 
1266 
1363 
2.ii 
4149 


1266 
0364 
0368 
2063 
0470 
2263 
0298 
034e 
1953 
1798 
2463 
2663 
2863 
1866 
1876 
OOOA 
4029 
4025 
4744 
J693 
1297 
4356 
2302 
I743 
OS4a7 
4357 
0108 
2067 
2057 
2067 
2064 
2311 
2264 
4494 
1978 
2464 


FUNCT 


FCs 


FCS 
FC% 


NAMEC 


FOOOS 
FOQOO1 


FOOYVO 


FCEA 
FQOG3 


PARSS 


LDA2 
LOL 
TEQ 
LOL 
LDX 
STX 
LOX 
LDL 
LOL 
LOA2 
ADD 
STA2 
EQU 
Lik 
LoL 
STL 
LOAZ 
SHR 
ERS 
ADD 
LOL 
ADD 
STA 
SUB 
STAd 
LDAS 
CLX 
SHR 
ADD 
LDAS 
LOL 
LOX 
STL 
LUAA 
LOL 
TiR 
ERS 
SUPA 
LOL 
LoL 
ATL 
LOA 
LOL 
ERS 
STA 
LDAY 
LD 
STL 
LDA 


o00U 
O1MMD 
OrM 


QUA 

UAS® 
OFC 
FCMD 


000VU 
@1GOl 

0000 
MRP 


DOWN 
EXITS 
0000 
0400 
Xu5 
KON2 
UNIQuU 


UNTQU 

KON) 
ooo 
000u 


0900 


0000 
iF 
FCEX 
TEMPS 
O7HHH 


HHAH 
TEMPS 
35000 
BF 


Rt 
uIGOS 
AM 
TEMP < 
9001 
7F 
EXITs 
000VU 


FASIN 


MDOP 2 
PARSA 


NORM < 


PARSG 
NAMEC 


oF 


RA 

FOOOS 
FOOOL 
ASIGN 


HOQ00 
ASMS2 


00000 
ASH33 
L SWoOr 
iF 
iF 
LF 
aF 


ASxS2 


Fe FUNCTION CALLS 


Fle ASSIGN F 


F2e SET FUNC MODE 


Fie BEGIN REVERSE PASS 


3256 
I287 
3238 
3289 
32290 
5291 
3292 
3295 
5294 
5295 
3296 
3297 
3298 
2299 
3300 
3301 
3302 
53QS5 
3304 
3305 
2306 
I3U7T 
2508 
I3S09 
3310 
I311 
II12 
I315 
oS1s 
2315 
3316 
3317 
3318 
I519 
II2Z0 
Isat 
I322 
3323 
3324 
2325 
3326 
2527 
3328 
2529 


33350 © 


J331 
3332 
IS359 
J5 34 
3335 


2464 
2c? 
j3a79 
yess 
QY654 
2353 
1257 
3042 
4086 
2266 
g749 
2864 
3064 
0665 
0397 
2066 
0670 
0865 
2079 
1868 
2078 
0880 
2005 
osoo0 
2282 
2265 
yS62 
2465 
2665 
0869 
2865 
J492 
2342 


2340 
3065 
2406 
2876 
1279 
266) 
2083 
9485 
4160 
3362 
2606 
Y8cs 
ye71 
2866 
1268 
21419 
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bes 
3388 
385 
386 
886 
3868 
388 
386 
368 
388 
388 
38B 
386 
386 
388 
386 
3388 
3868 
838 
388 
386 
386 
358 
8386 
3BB 
388 
388 
386 
388 
3888 
836 
38s 
388 


3368 
388 
388 
388 
888 
348 
388 
388 
3868 
836 
688 
388 
388 
388 
388 
386 
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2464 
0900 
QOOA 
1287 
4431 
0685 
1976 
1068 
2664 
O7TN9 
0001 
22i2 
00090 
1395 
2965 
9999 
Q000 
4225 
0000 
0001 
0880 
0001 
4097 
0166 
0000 
0400 
1821 
2220 
9999 
9000 
4740 
4140 
1819 


0000 
0645 
4974 
2622 
266 1 
2083 
0465 
2822 
0762 
0201 
0868 
08:8 
2212 
1268 
9999 
0100 


2267 
0879 
J684 
9363 
2333 
1287 
0283 
4710 
2266 
4350 
2864 
3064 
0665 
0597 
4350 
0670 
0865 
2978 
1865 
1798 
2282 
2065 
JS00 
932 
2265 
4970 
2465 
2665 
J869 
2868 
9492 
2342 
0463 


3065 
2466 
2876 
1279 
0362 
2262 
4084 
09352 
0755 
2466 
4833 
3871 
2866 
2119 
5060 
2522 


&PARI 
-PAR1 


DUA 
FQO002d 


&PARS 


“PAR 


DOWN 


CAL + 
CALS 


WOCAL. 
FASIN 


=F UNC 


=-FNCL 


ATL 
SHL 
ADD 
LOL 
LDA 
TEO 
LOX 
TIR 
LDAA 
LOL 
LDA2 
BUF 
STAI 
LDA 
LOL 
IIRS 
LDA2 
AUD 
STAed 
LOA] 
LOL 
LDA2 
SUB 
LOL 
LDAS 
SHR 
LOX 
STX 
TIRé 
LDAS 
ERS 
LOL 
STL 
EQU 
LDAS 
ERS 
LOL 
TEO 
LOL 
LOL 
L.DXx 
LDL 
LOL 
STL 
LDL 
ATL 
AUD 
&DD 
CON 
rik 


0900 
RA 

af 
BIG2: 
&PAR 1 
EXITS 
TOOLS 
07990 
oF 
0001 
BIG4O 
0000 
T0095 
7F 
9999 
0000 
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LOL 
TIRL 
3UFA 
STA 
LOL 
TIR 
LOL 
LOL 
TEO 
LOL 
TEG 
STX 
LDA 
LOL 
LOX 
LOA 
bel 
LDA 
LOL 


78000 
IN 
OUT 


OUT 

1o0P 
000¢e 
0600 


BIGZO 
000uU 
0200 


108 
SIGNA 
00045 
9999 
1010 
1028 


IOARA 

VAS" 

102MD 
0000 


0001 
XM 


0000 
01000 
TOOUS 


TA0Q32 


1025 
LPREN 
102e1 
TEMPa 
100P 


TEMP « 
199000 


O10 


CALPK 
EXPLS 


00000 
INSMO 


MCaL 
NAMEC 


102+ 
BR2 


CONST 
05000 
REMRT 


OIvT2 
SCAN 


INSRT 
RESCN 
000900 
ASa1 


INSRT 
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MISSING COMMA 
Wee CALL FUNCTION 


WSe UNDOIM ARRAY 


WLOeSCAN FOR ( 
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3622 
3625 
3624 
26245 
26g6 
2627 
3626 
3629 
3630 
3631 
3632 
5633 
36348 
5635 
36 36 
3637 
3638 
2639 
3640 
5641 
3642 
36043 
3044 
3645 
3646 
2647 
2648 
I64K9 
2650 
3051 
3652 
2655 
5654 
2655 
36506 
3657 
3658 
2659 
3660 
9661 
5662 
3665 
2664 
3665 
2666 
' 3667 
3668 
3669 
3670 
5671 


2777 
3984 
5965 
287 
2125 
3074 
2733 
1346 
1950 
196) 
1763 
2352 
2875 
2450 
2084 
0es9 
1294 
0654 
1887 
1289 
3075 
2677 
2877 
3077 
2080 
{34a 
2129 
1951 
ate2 
2329 
2953 
2087 
2880 
2920 
2679 
2883 
1346 
2153 
2358 
0962 
189) 
2297 
2299 
1746 
1748 
2879 
39g 
2598 
94998 
Q900 


38B 
385 
386 
386 
388 
3868 
388 
386 
386 
385 
388 
388 
385 
Sa] <) 
886 
388 
886 
38B 
888 
8388 
388 
386 
386 
388 
386 
366 
388 
886 
388 
868 
368 
386 
388 
3868 
388 
388 
388 
885 
355 
8685 
386 
Bas 
388 
3865 
388 
388 
38B 
388 
385 
388 
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0003 
2185 
0000 
0323 
9999 
OS31 
9998 
1950 
1814 
1763 
1814 
0000 
0200 
3082 
3086 
QOOA 
1896 
1867 
1289 
0358 
0000 
3023 
0671 
2680 
0742 
0927 
1931 
0140 
0927 
0001 
os84 
4117 
2929 
9998 
2883 
O544 
0400 
4756 
4860 
9997 
§198 
2299 
O544 
1748 
9999 
8880 
1796 
1896 
0900 
9999 


938} 
3985 
2874 
2125 
377% 
2733 
3973 
2352 
3030 
0363 
2352 
2875 
2489 
2084 
9889 
1294 
0173 
4426 
1891 
0358 
2677 
2877 
3077 
2886 
13au 
2129 
O374 
2742 
2329 
2933 
2087 
2920 
139) 
2679 
4736 
1346 
2153 
2358 
9982 
4140 
2297 
gosy 
1746 
4686 
2879 
41958 
2598 


3498 


Q173 
ugoy 


IN 
OUT 


ENTER 


10f 


10% 


TMPLO 


1023 


lire 
LDA 
STAa 
LOA 
STA2 
LDA 
STA2 
LDL 
LOL 
LOL 
LDL 
LDAS 
SHR 
ERS 
ADDA 
LOX 
LOA 
LOL 
LOL 
CiLX 
LDAZ 
ERS 
LOL 
TE 
Ox 
STX 
LOL 
LOx 
STX 
ITIRS 
LDA 
STA 
LOL 
LDAe 
LOL 
LOA 
SAL 
SUF 
STA 
IIlRe 
STL 
LOX 
STA 
LOL 
LDAd 
STA 
LUXa 
LDA 
LOL 
L1R3 
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0905 
16 5Mu 
0000 
THREF 
9999 
Twos 

999% 


ANSL 


ANSL 
0000 
0200 


x3 

04010 
A 

wIGis 


wooo) 
0000 

XMC 

DOMO 


TOBIO 
TOBS# 


Toa 
Toasw 
0001 
108 
SIGNA 
aF 
9996 


NINEF 
0400 
B1G02 
NXLOC 
9997 
EXITS 


NINEF 
9999 
NXLOC 
QOuo4O 
BIGIS 
$999 





[Oee 
ENTER 
ASMTR 


ENTER 


00900 


ASHM1 
REMRT 
IMPDO 


iF 


008383 


eF 


IMPOO 


GOTO 


NORMA 
FARNL 
FIWUP 


EXITS 
0000 


ASM1 


WideIN 


WIS OUT 


LIRS 


WL7eEQUALS SIGN 


W200 
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#50e¢END 


5072 
2675 
20748 
5675 
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0904 888 0 25 2056 3079 
3079 38B 9 60 4117 0469 
103% 


TOS 


LDA 
STA 
E OU 
EGU 


HOFF 
SIGNA 
NOS 
1o2¢ 


EG@LS 


2676 
3677 
5678 
3079 
3680 
20491 
5682 
2685 
7684 
5685 
5086 
5687 
2688 
3689 
3690 
5691 
5092 
3695 
JO94 
2695 
2696 
2697 
9098 
2099 
ITOQO 
3708 
3TO9 
3710 
3711 
2712 
27135 
3744 
3715 
2716 
I7i7 
2718 
3719 
S720 
272i 
2722 
3723 
57 2h 
97245 
5726 
S727 
2728 
2729 
2730 
I731 


4144 
1946 
L485 
QM7 
1948 
3080 
5083 
2332 
2284 
1889 
2091 

24oy 

2684 

2487 

286y 
2069 
2116 
2942 
2526 
0728 
0351 
1755 
2376 
09684 


J992 
2310 
2715 


2687 
2291 
1894 
7698 
2i48 
1955 
L737 
J064 
2887 
23510 
2112 
2525 
2552 
1936 
1158 
2942 


386 
3858 
d8B 
388 
388 
8686 
336 
388 
338 
393B 
B86 
388 
38B 
88s 
888 
388 
888 
888 
886 
88s 
388 
388 
885 
388 


338 
386 
3858 


335 
8B 
388 
38.8 
388 
8B 
888 
386 
386 
386 
386 
$86 
388 
383 
386 
388 
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O05 
88 
05 
58 
65 
05 
65 
05 
65 
30 
64 
35 
70 
30 
05 
65 
OG 
25 
70 
50 
25 
05 
32 
37 


65 
60 
30 


a5 
30 
25 
60 
a3 


25 
30 
25 
30 
25 


25 
30 
25 
06 


1946 
2225 
O747 
2225 
2651 
0231 
4860 
1419 
2287 
2091 
000! 
0043 
2467 
0001 
2687 
44640 
0001 
2324 
0728 
i549 
0008 
49748 
0500 
0500 


0908 
0915 
0948 


2269 
1894 
2096 
4196 
4605 
41757 
2651 
2887 
4408 
2112 
0323 
4860 
2154 
1138 
OS40 
0745 


1948 
9915 
1948 
g000 
39806 
3083 
2332 
2284 
1889 
gouy 
2464 
2684 
QOOA 
2884 
2089 
2116 
2922 
2526 
QOOA 
085} 
1755 
2376 
O984u 
0992 


2310 
2715 
4464 


2291 
$521 
3698 
21488 
1955 
4357 
3984 
2516 
4486 
2325 
2532 
1936 
44357 
2942 
J7HS 


WOF UN 
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i 
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LUX 
CON 
LOx 
CON 
STX 
LOX 
STX 
LOX 
STX 
LOL 
STAS 
ERS 
ADD 
LOL 
LOX 


STX 
TIRS 


LDA 
abo 
STL 
LDA 
LOX 
SHR 
SHL 
OFF 
ON 
ON 
ON 
STX 
STA 
STL 
ON 
ON 
LOA 
LOL 
LDAA 
STA 
LDA 
LDL 
LDA 
LOL. 
LDA 
LOL 
LDA 
STA 
LOAR 
LeL 
LDAA 
SLX 


BIGO1 
THREF 
NXLOC 
6000u 


70200 


LF 
39915 
iF 
309000 


SCAN 


RA 


NAME 


RA 


EXIT 


AS43537 
20900 
ASAS3 
ASALIL 
F ILUP 
190900 


ASH353 
00000 


FUNCTION ANU SUSROUTINE OECLARATIONS 
TIRGO SUFIF LIRIS LOAIL ATL 


IIR1O BUFIF LIRLO 


Ple COMPILE PREAMBLE 


P2e 


SET UP CARO 


2732 
2735 
IT 34 
3735 
37 56 
S737 
37 38 
5739 
S740 
IT HL 
STH2 
STU 
I746 
S747 
2748 
3749 
3750 
S751 
3752 
3753 
3754 
3755 
S756 
S757 
I758 
I759 
3760 
S761 
S762 
2765 
2764 
2765 
3766 
3767 
5768 
IT69 
2770 
3771 
I772 
S773 
I774% 
3775 
97T6 
2777 
53778 
3779 
3780 
7781 
2782 
2783 


U745 
0947 
O75] 
1385 
2136 
23959 
2085 
25359 
194) 
9945 
2348 
2265 
usss 
1292 
2485 
18668 
2655 
1900 
2865 
2088 
3085 
2268 
j2sa 
236} 
2295 
24997 
2548 
0490 
2488 
989a 
2507 
2309 
1349 
1331 
0979 
2296 
1098 
2ico 
2502 
2rer 
2499 
2748 
2353 
2668 
23512 
J561 
2868 
J690 
1892 
2496 


386 
386 
388 
38B 
886 
8388 
688 
B8B 
868 
3888 
83838 
388 
3588 
3SB 
386 
388 
3868 
888 
888 
388 
388 
388 
Sab 
386 
386 
888 
888 
388 
888 
388 
388 
886 
388 
388 
368 
386 
385 
38B 
388 
aBB 
38s 
385 
38B 
388 
398 
388 
838.8 
386 
686 
3865 
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0947 
1149 
2651 
3087 
0001 
2651 
2651 
1941 
1743 
4042 
1064 
2539 
9999 
1238 
1288 
2651 
4097 
2651 
2088 
0001 
2268 
4392 
9999 
4030 
2497 
4196 
0288 
6613 
4196 
4604 
2509 
4207 
1351 
4277 
Oass 
1098 
2100 
2502 
1904 
0888 
4196 
2150 
0000 
0000 
0379 
0022 
0690 
1892 
0008 
1298 


4535 
O75} 
1885 
0755 
2339 
2085 
4140 
4Ou4 
go48§ 
2348 
2285 
088@ 
1292 
2485 
188s 
2685 
1900 
2885 
452) 
3085 
4303 
2295 
2361 
4042 
2499 
2548 
9490 
2488 
0898 
2507 
2312 
1349 
2312 
O979 
2312 
4303 
2499 
4927 
2707 
4357 
27ka 
2353 
2488 
9008 
0581 
288a 
4260 
3072 
2496 
J1ol 


PARe 


PARS 


RESCN 
~FE 


&Fb 


FBSb1 


FASUB 





LOL 
LOLA 
STL 
LOL 
TIR 
ADO 
STA 
LOL 
LOL 
TEG 
LOL 
TEQ 
TIRS 
LOL 
TEG 
LDA 
sus 
STA 
LOL 
LDAS 
LOL 
ADD 
TIRe 
LDA 
LOL 
LDA 
STA 
ADD 
STA 
LDA 
LOL 
LDA 
LDL 
LDA 
LOL 
LOL 
LOL 
LOX 
AODDA 
LOL 
LOA 
ADD 
SUF 1 
STAI 
STL 
SUF 
Lob 
LOX 
LDA 
aD 


34000 
DON 
PARMD 
0001 
DON 
DON 


OWwOTM 
NORM 
3 


PARS 
9999 
CRAND 
lf 
DON 
KON} 
DON 


0001 


eIG70 
9999 
LAST 


UNIGU 
TMP 1S 
KONS 

UNTQU 
BIGéS 


BIGS9 


B8IGSO 
8A 


4aggsg 
BA 
UNTQU 
BIGO0S 

0000 

0000 
EXIT? 
Xx9 


Rw 
81624 


ASM4 
20900 


INSMD 


NORMX 
SCAN 


aF 


ASH37 


BRi 
«Fy 
RESCN 
NORM 
FeSBi 


FOBSUS 
FBSUB 


FBSUS 
S8R1 

FBSBi 
INCUGQ 
$0000 
AS43553 


RL 


cOnST 
CASIN 


PSe 


Pus 


SCAN PARAMETERS 


SCAN AHEAD 


PSe GENERATE THUNKS 





5784 Qi41 388 4 30 2303 4357 Lut ASAS3 
3785 2503 388 v 25 1369 1182 LOA 1003” 

5786 1182 3886 5 30 1184 43380 LOL ASMN2Z 

5787 11584 38B ) 25 0288 93990 LDA TMPIS 

5788 4890 386 v 70 4097 2300 ADD KONI 

3789 2300 8385 J 60 0288 1296 STA TMPLS 

3790 1290 888 J 70 2092 1295 ADOW 58999 g0V00 
3791 1295 3888 3 30 0379 4357 LOL EXIT? ASAS3 
S792 4150 38B J 30 4140 1792 WORTN LOL NORMA RETRN 
3793 41792 «#8338B YU 25 2287 4736 RETRN LDA XLINE GOTO 
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= 3794 


I7T99 
3796 
3797 
5798 
3799 
38900 
IbO1 
I802 
2805 
9604 
3805 
3806 
2607 
2808 
2809 
3810 
3841 
2812 
S815 
SB 44 
3815 
9616 
JB17 
5816 
2819 
5829 
9641 
5622 
2629 
58 g4 
5625 
3826 


“SOg7 


5628 
5629 
IBS0 
2831 
3852 
2835 
9B 34 
98355 
I856 
2857 
3858 
5639 
3840 
984) 
5642 


0394 
3088 
2365 
1968 
i775 
1768 
27<6 
215) 
2565 
0709 
1371 
O774 
1367 
1179 
1762 
2469 
2094 
1744 
1147 
2172 
og74 
1980 
26389 
2294 
2697 
030} 
2503 
2699 
19<3 
2926 
2?e9 
2549 
2889 
OTS7 
2180 
3089 
Q740 
1145 
1927 
1779 
O7US 
2710 
2715 
2316 
2l1e5 
2352 
2752 
2956 
1959 
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386 
386 
38B 
386 
38B 
388 
388 
38B 
386 
8868 
886 
386 
386 
388 
388 
388 
386 
388 
388 
388 
388 
388 
836 
386 
386 
38B 
388 
38B 
888 
586 
388 
388 
388 
386 
356 
386 
888 
386 
358 
386 
386 
388 


388 


388 
385 
336 
388 
388 
388 


30 
25 
87 
30 
07 
60 
75 
60 
30 
05 
07 
60 
ai 
07 
60 
05 
65 
07 
60 
70 
08 
34 
25 
87 
05 
30 
25 
25 
31 
82 
75 
30 
590 
30 


i 50 


50 
05 
65 
O05 
65 
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OS 
a1 
26 
24 
64 
0G 
32 
25 


4995 
1363 
1768 
O773 
0050 
2324 
0008 
1365 
1367 
1371 
4038 
4427 
1224 
3099 
4600 
2491 
4292 
0099 
4420 
0974 
1420 
0000 
2491 
2697 
2699 
25035 
4420 
4420 
2926 
2529 
4097 
0027 
4635 
4928 
4$79 
4068 
2145 
1924 
4577 
Q503 
0508 
0004 
2316 
2125 
1759 
175¢ 
9999 
1959 
4408 


3088 
2365 
1968 
1778 
17468 
2726 
2131 
2565 
0769 
2089 
O774 
1179 
1958 
1782 
2489 
2094 
L744 
1147 
2172 
QO0A 
1986 
2689 
2294 
2699 
QO301 
4229 
2172 
1923 
2926 
2729 
1147 
2889 
0737 
2186 
3989 
J74O 
1145 
1927 
1779 
O705 
2710 
2713 
2316 
2123 
2552 
2752 
2956 
2316 
14990 


INIT 


2 
INITT 


hs 


LOL 
LDA 
TGR 
STL 
IR 
STA 
SUB 
STA 
LOL 
LOX 
IIR 
STA 
ALF 
IIR 
STA 
LOX 
STX 
IR 
STA 
ADD 
LIRI 
LOL 
LDA 
TGR 
LDX 
LOL 
LDA 
LDA 
CLL 
TEQ 
SUR 
STL 
STL 
STL 
STL 
STL 
LUXA 
STX 
LOX 
STX 
STX 
LIRI 
CLL 
CLA 
AUF 1 
sTal 
TIR1 
TEO 
LDA 


KON2 
HEAD 
lF 
WARN 

0050 
HEADL 
Ru 
HEAD 
eF 


NOOOS 
NWORD 
MAIN® 
MEML I 
MEML 

MEMUL 
MEMU 

0099 
TEMPS 


£0000 
0000 
MEMUL 


2F 


TEMPS 
TEMPS 


iF 
KONI 
LEVEL 


AVALL | 


RWORD 
IWwORD 
DUMMY 
69090 
FS 
a10 
PO10S5 
PO108 

0004 
iF 


wOo0”U 
wooou 
9999 


BIGO4 
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ee Zie SET UP HEADER TABLE 


NAME 
INITT 


Zee CLEAR SYMBOL TALE 


iF 
2F 
RA 


2F +02 


REM 
25 


18 


STU beVvAR 


o0u00 
2350 INITIALIZE COUNTERS 


iB 


HB4S 
5644 
3645 
9646 
5647 
2648 
S849 
2850 
2851 
9852 
3855 
32654 
35U55 
3656 
3857 
5858 
3659 
3860 
I861 
2662 
2866 
2867 
2868 
5869 
5870 
5671 
5672 
2875 
28746 
3875 
2876 
5877 
2878 
5879 
2840 
3881 
5882 
5685 
38 a4 
58685 
7886 
5887 
5688 
3889 
2890 
5891 
5892 
2895 
5894 
5895 


19890 
1898 
2312 
2090 
2712 
2350 
1979 
2290 
2525 
2146 
2798 
2490 
2127 
2353 
1957 
1982 
1785 
2090 
2494 


2752 


2150 
23354 
415 
1345 
1347 
1749 
2910 
23890 
2912 
23516 
21ig 
2917 
3090 
L944 
2350 
2157 
2576 
2385 
1949 
2998 
2691 
2500 


638 
386 
388 
388 
388 
358 
888 
868 
388 
888 
686 
888 
888 
386 
3868 
8986 
388 
388 
388 


6865 


38B 
388 
888 
396 
386 
386 
388 
388 
8B 
385 
888 
888 
388 
388 
388 
888 
388 
888 
385 
388 
386 


385 
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60 
70 
60 
790 
60 
05 
65 
05 
65 
65 
65 
SO 
50 
07 
60 
07 
60 
07 
60 


50 


02 
08 
30 
30 
30 
25 
35 
60 
25 
20 
02 
25 
70 
Q5 
J2 
35 
20 
60 


a7 
32 
35 


#196 
4408 
0251 
4468 
4198 
4277 
4456 
4623 
4094 
4096 
49098 
4374 
4701 
00048 
4880 
0010 
2287 
4183 
4980 


0928 


1520 
1190 
1345 
1347 
1749 
0908 
0009 
0908 
2114 
2324 
00006 
0251 
4541 
4198 
0400 
4724 
2178 
1547 
4196 
0200 
0600 
3023 


1896 
2512 
2090 
2712 
2350 
1979 
2290 
2525 
2146 
2798 
2499 
2127 
2553 
1957 
1982 
i785 
2690 
2ug4 
2732 


2130 


2338 
4140 
1792 
1627 
1951 
2910 
2290 
2912 
2516 
0004 
2917 
3090 
1944 
2550 
2157 
2576 
2386 
1949 
2998 
2691 
2500 
2491 


WOEND 


JNTQy 
BGO! 
gAND 
ayGao’ 
COMON 
3IGS0 
NZONS 
BIGOS 
4OS4 
4096 
4098 
OLOLC 
TEMPS 
0004 
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888 
386 
358 
88s 
388 
386 
88B 
388 
38B 
588 
88s 
388 
388 
385 
88B 
sas 
a86 
388 
388 
385 
3865 
386 
386 
888 
38B 
888 
388 
386 
888 
388 
88B 
885 
385 
385 
388 
888 
8988 
386 
a86 
368 
386 


Cree ccki cr CCG : ogy 
Cr C$ocoGere tC ccecacace aocecoeocacncececcoceaecececceae cea vee: 
fe é a 


4209 
4625 
4301 
4651 
9997 
2929 
2907 
2335 
0001 
4600 
2916 
2535 
2538 
0400 
4631 
2585 
0001 
4600 
4420 
1774 
0000 
4625 
4209 
4301 
4631 
HHH 
0000 
0400 
4651 
2963 
0002 
4600 
4600 
2955 
0000 
4600 
4420 
9999 
0000 
1051 
2739 
2141 
9999 
4097 
1815 
0940 
2907 
9996 
9999 
HAHH 


2961 
2976 
2928 
2135 
2999 
2929 
25306 
2535 
2338 
2954 
2730 
2535 
2538 
1745 
2583 
1786 
0789 
2930 
2572 
QOOA 
2731 
2575 
2931 
2755 
2783 
19864 
2735 
2544 
2983 
2186 
3989 
2935 
2952 
0004 
2536 
2560 
2399 
4464 
2736 
2936 
2939 
9528 
1337 
2950 
1937 
2939 
214} 
1945 
2349 
2760 


AEGU 


STA 
aDD 
BUF 
STs 
LbAZ 
CLL 
STL 
TEO 
Ile 
ALD 
STA 
CLA 
Clix 
SHR 
gUF 
ATL 
IIR 
ADD 
STA 
ADO 
STL 
LDA 
SUB 
SUF 
STA 
IIR 
ERS) 
SHR 
SUF 
ATL 
TIR 
ADO 
STA 
ADD 
STL 
LDA 
LOL 
TIRS 
LDAS 
LOL 
TEO 
LO 
LDA2 
ADO 
LOL 
TGR 
STA 
TIR2 
IIR: 
1IiR 


TEHP « 
BIGD5 
s1G90 
TEMP 
9997 


RRRR 


0004 
MEML 
ZL INK 
iF 


0400 
TEMP 


0001 
MEML 
TEMPS 


000u 
BIGOS 
TEMP 2 
B1G90 
TEMP 1 
HHMH 
0000 
0400 
TEMP 1 


0002 
MEML 
MEML 


0000 
MEML 
TEMPS 

9999 

000v 
CONO 
iF 
eF 

99949 
KONI 
FORDS 


RRRR 
99906 
9999 
HHA 


iF 


RA 


RA 


8B 
EXITL 


5F 
SEO 


38 
aF 


CHECK THAT SUDSCRIPT 845 CONSTANT 


—— aie ebbaniibetinn snemmesmtis, Amcaaittatat 
- Aaa, climbs Aetna 
~ ee ee | ommement 
ci ein aie | sanieemeni, 
aomemmnce. _ siateneemin , meeeenn 
‘ man pee dn mean 
Smee Ane OR. ot 
enact siatetbemenen gunman nomen, 
- ee eS ERR SN 
eee 
eet 


4186 
4187 
4168 
4189 
#190 
4191 
G192 
4193 
4198 
4195 
4196 
4197 
4198 
4199 
&200 
201 
4202 
4203 
4204 
4209 
4206 
4207 
4208 
4209 
4210 
4211 
U212 
4a\3 
4214 
4219 
4216 
4217 
4218 
4219 
4220 
S221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 


2760 
2137 
4156 
2960 
2357 
1140 
a7uag 
2944 
2946 
2563 
2537 
1340 
2562 
L747 
2737 
2937 
2738 
234} 
2145 
2938 
2354) 
1740 
2745 
2351 
2746 


1856 
1940 
294s 
2762 
2568 
2374 
2379 
2140 
1947 
2340 
2147 
2751 
2302 
1770 
2773 
2579 
2782 
2386 
1969 
1793 
25382 
1789 
2396 
2373 


385 
888 
885 
88s 


386 i 
@8B i 


688 
388 
88s 
388 
38.8 
888 
388 
38B 
386 
38B 
38B 
d8B8 
386 
68B 
388 
388 
388 
888 
66B 


366 
886 
386 
388 
386 
886 
386 
388 
38s 
386 
388 
38B 
386 
388 
388 
886 
386 
388 
386 
3865 
385 
388 


s65 . 


386 


KeocCoccr ace Cr tCce Ccer cCceccote.,. 


ejocceaceeecoceaoceececceccrccaecce 


0000 
0000 
2960 
2916 
1149 
2744 
2746 
2946 
OOOA 
9997 
1340 
0800 
9997 
0000 
0000 
9999 
2341 
2746 
0054 
2541 
9998 
2745 
0000 
2746 
9996 


9999 
0100 
OO0A 
0300 
OOOA 
HHHH 
9999 
1947 
0001 
2147 
18i4 
2362 
0500 
2575 
0100 
2562 
0100 
1789 
0109 
2396 
0100 
0260 
0300 
2775 


2137 
4140 
2943 
2357 
L146 
2944 
0528 
464] 
2562 
2537 
1340 
1747 
1747 
2737 
2937 
2738 
2341 
2145 
2938 
27ky 
L749 
JOOA 
235) 
2498 
#149 


1940 
2945 
2762 
2368 
2373 
2379 
2140 
JOOA 
2349 
2147 
2751 
2362 
1770 
2773 
2379 
2762 
2386 
1989 
1793 
2763 
2573 
2573 
2573 
2779 


EQue 


&ECUR 


-E CUR 


FQUS 
KONE 


“MUL 


&MUL1 


wom Eu NW 


ERSS 
STAS 
LDL 
LDA 
CLL 
TEQ 
LOL 
LOL 


LDA2 
CLX 
SKR 
LDA2 
RUF 1 
STA1 
LDL2 
CLA 
TEO 
LOA 
TGR 
LDA2 
RUF 
LIR} 
LDA 
TIReé 
£O@U 
LOXS 
SHR 
ADD 
SH® 
ADD 
LIR 
ERSS 
ALD 
LDA 
cLL 
TEQ 
CX 
SHR 
TES 
SHR 
TEQ 
SHR 
TEGO 
SHR 
TEGO 
TiR 
) Es 
TiR 
STA 


NORMX 
EQsvVa 


lF 
BED 
GR 
“EQuz 


iF 
1F 


48 
RA 


EGASN 
NORMX 


“MJL 


“MUL 1 


nA 


ROUTINE FOR N®() WHERE N IS 4 COSTANT 


42506 
42357 
4238 
8239 
4240 
§241 
4242 
S245 
%2ua 
4245 
4246 
U2U7 
4248 
4249 
8250 
§251 
4252 
4255 
4254 
4255 
4256 
4257 
4258 
8259 
&260 
4261 
8262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
8270 
4271 
“272 
4273 
427% 
4275 
4276 
4277 
S278 
4279 
240 
4263 
4282 
8255 
4284 
4285 


2779 
2584 
2540 
2347 
2962 
1906 
3969 
2740 
2903 
2366 
21066 
1970 
2772 
2979 
2940 
ere) 
2747 
2347 
29351 
1764 
2941 
2763 
2373 
1316 
2947 
216) 
1317 
2549 
238) 
2964 
9588 
2165 
2981 
2365 
1628 
2368 
2371 
1974 
2585 
2189 
2596 
i964 
2706 
2vag 
2966 
1369 
2982 
yg9s0 
4256 
1254 


386 
3868 
388 
386 
a8B 
3868 
386 
388 
386 
388 
888 
38B 
388 
8B 
388 
386 
386 
3886 
6388 
388 
388 
888 
888 
o8B 
386 
386 
386 
686 
388 
888 
388 
388 
38B 
388 
888 
386 
388 
88s 
aes 
888 
uSB 
3688 
386 
388 
888 
3568 
866 
386 
j368 
388 


30 
25 
82 
70 
62 
Ji 
25 
32 
82 
Je 
25 
20 
OG 
20 
64 
06 
08 
08 
0G 
29 
30 
08 
QS 
07 
70 
70 
425 


82 
25 
30 
30 


82 
30 
08 
06 
32 
65 
37 
60 
70 
25 
60 
06 


37 
O48 
60 
60 


OO00c 
4974 
2347 
OOOA 
2347 
0969 
4305 
0300 
2166 
OFOO 
Q900Cc 
2772 
0000 
4723 
$999 
arvay 
17ié6 
1720 
9999 
0001 
4215 
1038 
1034 
0100 
2775 
27864 
0104 
1178 
2984 
2586 
2165 
a?7Ts 
2365 
0130 
2566 
1250 
1974 
0800 
1987 
0400 
2749 
2766 
1650 
2164 
136° 
0500 
0500 
0000 
QOS33 
0533 


2584 
2549 
2547 
2762 
19466 
3969 
2740 
2963 
2366 
2740 
1970 
4260 
2979 
2940 
a74j 
2747 
295) 
295) 
L76u 
2941 
2004 
0199 
0199 
294% 
2181 
9930 
2549 
238} 
2185 
9588 
4556 
2981 
2385 
a3k? 
2568 
2371 
1974 
2585 
2189 
2596 
1964 
OO0A 
2349 
2966 
1369 
2982 
3990 
99000 
2364 
2364 


&MUL 
~MLL1 
10016 


10017 


PANIC 


190006 
190004 


LoL 
LDA 
TES 
ALD 
TEQ 
CLL 
LDA 
SHR 
TEO 
SHR 
LOA 
LDL 
TRL 
BUF 
STA3 
CLX 
LIRL 
LIRI 
TIR3 
LDA 
LDL 
LIRL 
LIRI 
TIR 
ADD 
ADD 
LDA 
LOL 


LOAA 
LOL 
LOL 
CLA 
TEQ 
STL 
LIR? 
CLX 
SHR 
STX 
SrL 
STA 
ADD 
LOA 
STA 
CLX 
SHR 
SKL 
JMP 
STA 
STA 


RX 
BIGlye 
1F 
RA 
iF 


LITA 
0900 
aF 
OFOU 
RX 


000VU 
KONeS 
9999 


JOO1L6 
J0020 
9999 
0001 
OPxX 
Q0054 
Q0934 
O010u 
PARS 
BIG37 
PAR} 
BIG2U 


70000 
aF 
PARS 


Ix 
~ALRM 
19000 


0800 
WOS 

0400 
wn 


30000 
ALF 


0500 
050¥ 
0009 
THETA 
THETA 


aF 


2b 


cOnNST 


JF 
3F 


UNOP i 
SINS3 
GIWSa 
1F 
TASS 2 
2aF 
AQ000 
2$432 
le: 


oF 


ar 


RA 


iF 
iF 


cities insite omental sisenatitis hc ames etamcnatiio attinimitline sentimental: atlanta sctecienniet citiceini ARRAN eatin emcee cemeteries ne ne een, pn ee pei eee peel 


8266 
4287 
§236 
4289 
8290 
8291 
8292 
4295 
64294 
4295 
4296 
4297 
4298 
4299 
4300 
&301 
&302 
4305 
“304 
§35u5 
4396 
4307 
4&3y8 
S309 
4310 
8313 
4312 
4313 
&3i4 
43415 
4516 
4317 
#518 
%3519 
4520 
8521 
uS22 
8525 
432% 
8525 
4326 
4527 
4376 
4377 
4578 
4379 
#5890 
S3ai 
835382 
4343 


1252 
1250 
2364 
1257 
1255 
1253 
1251 
2764 
2964 
278s 
1767 
1265 
1967 
14263 
2167 
126} 
2367 
1259 
2767 
2564 
2768 
2967 
a969 
2972 
2908 
1256 
1769 
2170 
1969 
2169 
23569 
2507 
9759 
Jj6e3 
o7uU8 
9646 
9730 
o614 
9699 
0763 
9667 


1630 
165] 
1652 
1653 
1654 
1655 
1656 


386 
386 
386 
385 
888 
388 
388 
388 
8B 
336 
J86 
868 
ase 
38s 
868 
388 
388 
886 
38B 
288 
388 
388 
388 
885 
398 
886 
688 
386 
388 
38B 
386 
388 
388 
38s 
388 
38B 
e868 
386 
885 
385 
385 


885 
8865 
368 
888 
38s 
8686 
388 


GOoeceececeeccaceagouncocoeccececacececace cocece cc 


= ee ee 


QO 
Q3 
31 
02 
00 
Ol 
25 


0533 
0533 
0139 
0300 
0500 
0500 
0500 
0533 
OF OO 
0139 
0008 
0650 
0655 
0765 
0770 
0681 
0686 
0600 
0605 
0001 
2168 
0015 
0001 
2749 
1987 
9050 
0054 
0050 
0618 
0050 
0602 
0190 
0000 
0000 
9000 
9000 
0000 
0000 
0000 
0000 
0000 


0000 
0009 
2202 
0007 
1106 
1014 
0007 


2364 
2364 
2564 
2764 
2764 
2764 
2764 
2964 
2785 
1767 
0008 
1967 
23564 
2167 
2564 
2367 
2564 
2767 
2564 
2768 
2967 
2968 
2972 
2596 
2371 
1769 
2169 
1969 
2566 
2369 
2566 
3190 
0000 
0000 
v000 
9000 
0000 
9900 
Q000 
9000 
9000 


9000 
C690 
6110 
7700 
A770 
2282 
7900 


10002 
10000 


10007 
10005 
10005 
10001 


10015 
10015 
160011 


10009 


BAL< 


~ALé 
1090U8 


BALL 
“ALI 


BALRM 
20159 
20025 
20108 
20046 
20130 
200145 
20099 
261685 
20067 


30000 
30001 
300U2 
30003 
3Q004 
390005 
30006 





STA 
STA 
STX 
SHR 
SHR 
SHR 
SHR 
BUF 
SHR 
BUF 
JMP 1 
STA 
STX 
STA 
STX 
STA 
STX 
STA 
STX 
TIRI 
LOA 
AOD 
IIR 
ADD 
LDA 
LDA 
ADD 
STA 
PRN 
STA 
PRN 
JMP 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
OFF 
ON 
CON 
CONL 
CON] 
ron 
cont 
cond 
“ONL 


THETA 
THETA 
CHI 
050U 
0500 
0500 
0500 
THETA 
OFOO 
CHI 
9008 
29050 
20055 
20165 
20170 
20081 
20066 
20000 
20005 
0001 
ALF 
H1O 
0001 
wt} 
wOS 


LC 
B1GO4 


20016 
LC 

20002 
&CROS 


900u 

agoy 
00000 
03000 
Si22dv 
02009 
OoLig 
1104 
23000 


iF 
lF 
3F 
aF 
2F 
2F 


3F 
3F 
3F 


aF 


=A 2 


48 
58 


“Ait 
“ALRM 
~ALRM 


00000 
9Co0” 
26119 
TTFOS 
6A77 3 
AZeBe 
77900 


$384 
9385 
4386 
4587 
4388 
4589 
4390 
4391 
4392 
4395 
43594 
4595 
4396 
SS97 
4598 
4599 
4400 
4g} 
8402 
44Q3 
S48 
4405 
4406 
4407 
4408 
4409 
4410 
441 
U4 2 
4413 
44 14 
4415 
4416 
4417 
4416 
4449 
4420 
4421 
4422 
S425 
4424 
4429 
44 26 


{657 
1658 
1659 
1600 
1661 
1662 
1663 
{60g 
[665 
1606 
1607 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1660 
1661 
1682 
1683 
1684 
1685 
1666 
j7?3a 
3618 
O703 
9641 
0725 
0609 
0694 
O778 
9662 


386 
388 
388 
336 
388 
388 
86 
386 
386 
388 
8988 
388 
uss 
888 
3868 
886 
y88 
8388 
386 
386 
686 
885 
3868 
388 
388 
388 
3eaB8 
386 
388 
388 
886 
388 
388 
885 
586 
38s 
38B 
308 
886 


Oe coeceeaeccr Cer ek Oe Ce Ce CCF FE ke ee ee ee ew oe Ge om me pe 


2009 
0007 
2009 
0008 
0232 
1009 
O1L7 
1302 
0007 
2009 
0209 
312A 
0021 
0021 
LOLA 
1132 
102A 
3301 
1028 
0108 
0007 
0128 
0006 
2131 
3007 
1106 
0006 
0102 
oo2F 
0207 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


7700 
3900 
3700 
2000 
1374 
6500 
677} 
9340 
9900 
3700 
3370 
1827 
TT7AL 
3667 
i808 
9544 
PO9A 
A24uo 
72A6 
SATS 
0000 
gA27 
FOCO0 
a474 
64800 
9779 
59000 
6960 
96A6 
9860 
9000 
0000 
QQ0o0 
9000 
0000 
0060 
0000 
Q000 
9000 


30007 
3OCU8 
30009 
3,010 
3o011 
30012 
3o0015 
30014 
30015 
30016 
30017 
30018 
30019 
30020 
30021 
30022 
30043 
30024 
30025 
30026 
30027 
30028 
30029 
390030 
30031 
30032 
30053 
30034 
30035 
30036 
20134 
20018 
20103 
20041 
20125 
20009 
20094 
20178 
20062 


CON, 
CON 
CON] 
“ON] 
CON 
CON] 
CON 
CONS 
CON 
CON1 
Cons 
CON) 
CONL 
Conti 
CON: 
CONE 
CON1l 
CONL 
CON 
CON 
CONS 
CON 
CON, 
CON 
CON, 
CON 
CON] 
CON 
CON 
CON| 
ZON 
ZON 
ZON 
ZON 
Z0N 
ZON 
ZON 
ZON 
ZON 
ON 
ON 
ON 
ON 


9320u 
200900 
00200 
01000 
32023 
02104 
41011 
10130 
23000 
03200 
90020 
O33ie 
22004 
1000¢ 
Go3101 
19115 
01102 
20330 
12102 
31010 
10000 
O10leZ 
20000 
19213 
22300 
00110 
21000 
33019 
00002 
10020 


8001 
9001 
9002 
800 


97705 
73905 
93709 
32900 
21874 
96500 
76771 
29040 
79900 
997090 
93370 
A1427 
L77Ai 
18667 
Algos 
293544 
AQGIA 
1A240 
B72A6 
QuATS 
70000 
8BA27 
6FO00 
18074 
76400 
69779 
65000 
26960 
F96A6 
79850 


OULOOCLOOY 
00009000000 
0000900000 
0000900000 
00V0900000 
Q0V00Q00000 
0900900000 
0000900000 
00009000000 
0900900000 
0000900000 
0000900000 
0000900000 
00009000000 
9000900000 
0000900000 
00N0900000 
0UG0900000 
0000000000 
0000900000 
0000000000 
000090000 
0090900000 
0000900000 
0000900000 
0000900000 
0000900000 
0uvogo000d 
0000900000 
0090900000 
0000900000 
0000906000 
0000900000 
0000900000 
0000900000 
000090000 
94009000060 
0000900000 
0040900000 
090000900000 
0000900000 
0000900000 
0000900000 
0000900000 
0000900000 
0000900000 
0000900000 
00009000000 
0000900000 
0000900000 


a 


0000000000 
0000099000 
00000900000 
0000000000 
9060000000 
00000900000 
6000000000 
0000000000 
0000000000 
96000000000 
0000000000 
0000000000 
6000000006 
0000000000 
0000000900 
06000000000 
9009000000 
09000000000 
0000000000 
0000000000 
9000000000 
0000000000 
00900000000 
9000000000 
0000000000 
9000000000 
000000900N0 
0000000000 
0000000000 
006900090000 
0000000000 
9000000000 
g009000000 
0000000000 
90000900000 
0000000000 
00000090000 
9g0000090006 
0000000000 
0000000000 
00000000060 
0000000000 
9000000000 
9000000000 
0000000000 
0000000000 
voo00009c0 
9000000900 
Goo00000000 
90000000000 


0009000000 
60009910000 
0000020000 
0009930000 
00099040000 
0000950000 
6000960000 
0000970000 
0000080000 
0000990000 
0060100000 
0000110000 
0000120000 
00001390000 
00001480000 
00090150000 
0000160000 
0000170000 
0000180000 
6000190000 
00002900000 
0000210000 
0000220000 
0000230000 
0000240000 
0000250000 
09000260000 
00002790000 
0000280000 
0000290000 
0000300000 
0000310000 
0000320000 
0000330000 
0000340000 
0000350000 
00003560060 
0000370000 
0000380000 
0000390060 
00004900000 
60004 10000 
0000420000 
0000430000 
0000440000 
0000450000 
00004460000 
00090470000 
0000430000 
6000490000 


0000000000 
09000000000 
00900000000 
9090000000 
90900000000 
000090000006 
09009090000 
0099000000 
00900000000 
0090000000 
0000090000 
60900000000 
0090000000 
0090000000 
0000000000 
0000090000 
0000090000 
00009090000 
0000090000 
6000000000 
0060000000 
0000090000 
Q000000000 
0000000000 
0000090000 
0000000000 
9000090000 
0000000000 
0000090000 
0000000000 
00900000000 
0000000000 
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S711 
47 \2 
G73 
47 14 
4715 
4716 
“717 
6718 
8719 
4720 
S721 
4722 
&7 25 
4724 
4725 
&7 26 
8727 
4728 
4729 
4730 
4731 
“7352 
&7 353 
“7 34 
4735 
47 36 
“7 357 
4738 
8739 
4740 
w7 U1 
S7K2 
4745 
a7 ue 
4745 
4746 
4747 
4748 
4749 
4750 
4751 
47352 
4753 
4754 
4755 
&7 56 
a7 S57 
4758 
4759 


14608 
1469 
1479 
1471 
14972 
1473 
i474 
1475 
1476 
1477 
1478 
1879 
1480 
1468} 
1482 
1483 
1464 
1485 
14u66 
1487 
1488 
1489 
1490 
149) 
1492 
1493 
L494 
1495 
14996 
1497 
1498 
1999 
1500 
156) 
1502 
1503 
1504 
L505 
1906 
1507 


“1508 


iSvu9 
1510 
i311 
iSl2 
1513 
1314 
1515 
1516 
1517 


386 
388 
38B 
488 
388 
88B 
388 
388 
ues 
38B 
B88 
886 
3885 
888 
386 
388 
38B 
388 
386 
888 
3388 
B8B 
3868 
368 
386 
386 
3568 
3868 
388 
388 
368 
886 
388 
386 
388 
388 
386 
888 
38B 
860 
688 
386 
338 
388 
3688 
385 
388 
386 
BBs 
886 
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00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
0) ¢) 
QO 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
QO 
Q0 
00 
090 
00 
Q0 
90 
90 
00 
00 
00 
Q0 
00 
QO 
Q0 
00 
00 
00 
00 
00 


0000 
0000 
0009 
0000 
0000 
0000 
0900 
0000 
0000 
0000 
0000 
0000 
09000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
6000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
6000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
Q000 
0000 
0000 
0000 
0000 
0000 


Y000 
J900 
9960 
0006 
0900 
9000 
000q 
0000 
9900 
9900 
9000 
Q000 
0000 
99000 
9000 
9000 
99000 
90ce 
0000 
0900 
9000 
0000 
0000 
9000 
0000 
9000 
v000 
9000 
0000 
9900 
0000 
9000 
0000 
99060 
0000 
9000 
9900 
Q000 
0006 
9000 
1000 
9900 
9000 
9900 
9000 
0000 
yoo0 
09000 
9000 
0000 


7O048 
70049 
20050 
70051 
70052 
7Q053 
Z0054 
70055 
20056 
20057 
70058 
Z0059 
20060 
20061 
20062 
20005 
70064 
20065 
270066 
20067 
20068 
20069 
20070 
20071 
20672 
20073 
20074 
Zo075 
20076 
20077 
20078 
20079 
20080 
Z0081 
20062 
20063 
70084 
20065 
70086 
20087 
20088 
70089 
70090 
Z0091 
20092 
20093 
20094 
70095 
20096 
7OC97 


non 
COM 
CON 
CON 
Con 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 


00000 
90000 
00000 
00000 
00000 
0000¥ 
0000u 
00000 
090000 
0000y 
00000 
00000 
00000 
000090 
90009 
0000” 
00000 
90000 
00000 
00000 
90000 


00000. 


900090 
00000 
00000 
00000 
Q000u 
Q000uU 
00000 
Q0000 
90000 
00000 
00000 
00000 
000090 
00000 
90000 
00000 
00000 
9000u 
o000yu 
0000v 
90000 
9000u 
00000 
90000 
00000 
00000 
00000 
00000 


00900 
00u00 
00000 
00990 
00900 
00090 
00000 
90900 
90900 
00000 
909000 
00000 
90000 
00000 
Q0000 
00000 
009000 
00000 
009000 
00900 
00000 
00900 
00000 
90000 
00000 
00000 
009090 
90900 
00000 
00000 
c0000 
00900 
00000 
00000 
00000 
00000 
00900 
00000 
00000 
00000 
60000 
00y90 
00000 
00006 
90900 
00009 
00000 
90900 
009000 
00990 
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4760 
8761 
4762 
47635 
4764 
8765 
8766 
S767 
4768 
4769 
4770 
4771 
“772 
8775 
4774 
“779 
4776 
4777 
47786 
M779 
47890 
8781 
4782 
4783 
4764 
4607 
4610 
4613 
4815 
4816 
4817 
4826 
4629 
4830 
$831 
4832 
4835 
4839 
4B35 
4836 
4837 
4636 
4639 
S840 
4641 
S842 
4845 
884G 
4B45 
“B46 


isig 
1519 
9405 
0886 
9370 
0455 
05.59 
04<3 
058 
J846 
05350 
o414 
9499 
9563 
0467 
0359 
0223 
0506 
0246 
0350 
O214 
9299 
9365 
9267 


Q4V0 
J46)1 
0450 
0816 


‘Q303 


O44} 
9545 
0409 
0894 
0378 
3462 
0&0 
02U5 
J261 


39s 
88s 
888 
386 
388 
388 
386 
386 
388 
68s 
85 
386 
3868 
385 
388 
388 
388 
388 
886 
386 
388 
8B 
88 
ass 


ue 
888 
888 
3388 
388 
388 
386 
896 
388 
ass 
386 
886 
385 
365 


00 
00 
00 
00 
00 
00 
QO 
QO 
00 
Qo 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
00 
Qo 
00 
00 
00 
00 
00 
o7 
il 
60 


————— 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
9000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 
0900 
0000 
6000 
0000 
00600 
0000 
7028 
1039 
9900 


0000 
0000 
99000 
4000 
0000 
0000 
0000 
0000 
9000 
0000 
0000 
0000 
0000 
9000 
0000 
0000 
0000 
0900 
0000 
Q000 
9900 
0000 
Q000 
99000 


9000 
9000 
9000 
3000 
9000 
9050 
9000 
0000 
9900 
9000 
9000 
2427 
i3i2 
3330 


20098 
20099 
PQ00S 
POO86 
PO170 
POOSS 
P0159 
P0023 
PO108 
PoOsG 
PO1350 
Pools 
PO099 
PO185 
PO067 
KO139 
KOO02S 
KO108 
KOO46 
KO3IS0 
KOO14 
KOO99 
KO185 
KQ067 


PO0G0 
POOS1 
PoOS50 
Poor 
PO1GS 
Poqou! 
e0125 
530009 
PCOUSG 
©0178 
Po0062 
% 0000 
KO0C05 
Ko061 


CON 
CON 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
Z0ON 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
OFF 
ON 

OW 

ON 

ON 

OW 

ON 

ON 

OFF 
OFF 
OFF 
OFF 
ZON 
ZON 
ZONn 
ZON 
ZON 
ZON 
ZON 
ZON 
ZONn 
ZON 
ZON 
CON 
CON 
CON 


00000 
00000 


900u 
Bo0l 
9001 
9002 
$0014 
ao0l 
a002 
900uU 
9001 
900¢ 
g901 
800<¢ 


6775a 
11105 
ON99% 


00900 
g0000 


82427 
01512 
03330 
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4847 
4648 
YB49 
4850 
4851 
4652 
46535 
4854 
4655 
4856 
4857 
4858 
4859 
4660 
§861 
4662 
48635 
4Be% 
4665 
4866 
4867 
4668 
4871 
4672 
B74 
4875 
4876 
4877 
4676 
4879 
4660 
4661 
bga2 
4685 
48 a4 
4985 
4886 
4887 
4688 
48 a9 
4890 
4691 
4892 
4895 
4894 
4895 
4896 
48697 
4898 
4899 


3286 
233605 
9370 
J250 
3258 
q33u 
ela 
Q9303 
024) 
0325 
0209 
9294 
Q378 
9202 


298s 
9993 
0998 
9903 
9963 


1700 
1701 
1702 
41703 
i7oa 


1706 
1707 
1708 
1709 
171lo 
AW7il 
1712 
1713 
1718 
1715 


1746 


3368 
388 
3983 
386 
3688 
388 
385 
338 
386 
388 
386 
388 
358 
338 


3868 
BOB 
886 
BSB 
3388 


685 
388 
386 
866 
388 


388 
886 
885 
388 


‘386 


388 
886 
835 
3868 
388 


88 


eoaocad 


ecaccc 


a 


Ccocecaceca 


OA 
ors 
Ol 
20 
00 
00 
00 
00 
00 
00 
00 
00 
00 


00 
00 
00 
00 
oo 


O05 
06 
05 
02 
06 


06 
06 
OS 
Q6 
0S 
96 
Q3 
06 
97 
04 


05 


0000 
A279 
0110 
LiF i 
0019 
0000 
0060 
0000 
00006 
0000 
0000 
0000 
0000 
0000 


0000 
0000 
0000 
0000 
0000 


0199 
0909 
8809 
9499 
0800 


i568 
1598 
8808 
1568 
6815 
8810 
9908 
1599 
8811 
9699 


9687 


9000 
as0a8 
9201 
JFS2 
3122 
9000 
2000 
9000 
9000 
0000 
9000 
90000 
9000 
0000 


0900 
99000 
9900 
0000 
9000 


0300 
9000 
9900 
1000 
9000 


4iog 
4100 
9000 
19000 
1000 
9000 
9000 
10.0 
90060 
1000 


16-0 


K( 0&8 
KO167 
*O170 
*¥ 0050 
Ko055 
KO134 
KoO1s 
KO1035 
KOOG 1 
Ko125 
KO0009 
KO094 
KO178 
KQO062 


Ro1l8s 
RO193 
Ro198 
ROLOS 
ROI8S 


JQ000 
Jooo1 
JO002 
JOGOS 
JQ004 


JOO0s5 
JO0007 
Jooos 
JOO? 
JOO10 
Jcor. 
JOoO12 
JOOS 
Jo014 
JGO1LS 


JQOLS 


CON 
CON 


CON 
CON 
ZO* 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
ZON 
ON 


CON 
CON 
CON 
CON 
CON 
OFF 
ON 
ON 
ON 


ON 


CON 
CON 
CON 
CON 
CON 


CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CO; 


CON 


2000u 
UJAA2T 
y2021 
SLlLiF 
20004 


9002 
9001 
00000 
00000 
00000 
000900 
00000 
9000 
8001 
8002 
9000 
9001 
9002 


OS0l¥ 
04090 
0888u 
029469 
04080 


O415% 
06159 
06158 
0588, 
96881 
03990 
06159 
976883 
04969 


0S96a 


00900 
9Og01 
lor 32 
uIL22 


009000 
00000 
60000 
90900 
00900 


908090 
009009 
90900 
91900 
009090 


61100 
81109 
80900 
81000 
51900 
00u00 
80900 
$1900 
190900 
91900 


71609 
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VERSION B 


9OQ0U-MONTH@YEAR 


INTERPRETIVE CODES FOR SINARY OPERATIVUN 
Vi UP V2 OR Va PO Vie 

KEYs SASIMPLE VARIABLE +CONSTANTLOR TEP STORE 
AAHREGISTER A I @ YNGEX REGISTER 1 
OMSUSSCRIPTEOD VaRI ABLE 

SS clLacc CHGI LDA] oP2 

SA JZACC POl 

SI clLacc TIRID POl 

SO cMG2 LOL2 LO«l OPRL 

AS uzZaCcC OPe 

AA IMPOSIBLE CaAs€é 

Al JZACC ATL ITIRIO PORL 

AD UZACC ATL LOA? PORL. 

TS cLacc IIR UPe 

In UZACC ATL IIRIO OPRL 

Il chLacc IYIR1IO ATL OPRL 

Ip .OL2 TIRIO OPS, 

OS CHGS LOAL OP2. 

DA JZACC ATL LOal OPRL 

O21 29d TIRLO Por 

DO cHG4 LOL2 LDA! 

INTERPRETIVE CODES FORK VARIOUS UNARY UPS 
MUL § CLaCC LOL2 MULL SHL 





49QU 
8901 
4902 
4993 
S904 
49Q5 
4996 
4907 
¥908 
4909 
#9 0 
4911 
49 ji2 
4915 
4914 
4915 
49 16 
4917 
4918 
8919 
8920 
492) 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4935 
49 54 
4935 
4936 
8937 
4938 
4939 
4940 
4941 
ug4ge2 
4945 
S94e 
4945 
4946 
4947 
4948 
4949 


1747 
l7is 
1749 
1720 
171 
1722 
1723 
1724 
17<5 
1726 
1747 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1757 
1738 
1739 
1636 
9801 
3014 
911s 
1615 
L613 
1908 


1900 
1001 
1002 
1005 
1004 
1008 
1006 
1007 
1008 
10U9 
10190 


10]1 ° 


1012 
10153 
1Olg 
1045 
1916 
1017 
1O0la 


386 
385 
38s 
388 
gAaB 
38B 
388 
38s 
388 
886 
B86 
3688 
386 
888 
38B 
3388 
388 
388 
398 
888 
888 
386 
888 
388 
38s 
386 
888 
388 
688 
388 


3868 
888 
388 
88, 
388 
3386 
36B 
386 
388 
686 
388 
83868 
386 
888 
8868 
396 
386 
388 
288 


1587 
8815 
8716 
9817 
1700 
8817 
1700 
9918 
1800 
8818 
1800 
8685 
1586 
8815 
6664 
0000 
1500 
8815 
0000 
8681 
1536 
8824 
8680 
O715 
0001 
9109 
9108 
0009 
Q009 
0001 


0600 
0700 
0809 
0650 
0909 
1000 
1000 
0900 
1100 
1200 
4209 
4109 
0209 
0300 
6400 
0200 
0600 
0700 
0800 


1600 
8716 
a000 
9000 
9000 
9000 
9000 
9000 
9000 
3000 
0000 
9000 
8400 
a6a4 
9000 
0000 
9000 
0000 
0000 
2400 
go2u 
9000 
2400 
9000 
3000 
2900 
2000 
2900 
1000 
2000 


1960 
1080 
1970 
19065 
1090 
4100 
1100 
1990 
1130 
1146 
1140 
1130 
1040 
1050 
1050 
1049 
2100 
2126 
2110 


J0017 
JQ01& 
JOOI9 
Joo020 
JO0e1 
JO022 
JC0Z5 
JO0a4 
JCOLS 
JQ0Z6 
JQ027 
JO028 
Jo029 
JQ0350 
JOO3S1 
JQ032 
JOO35 
JOQO0O3S4 
JQ035 
JO00356 
J0037 
JOO38 
J0059 
CTRC 
CSUs 
C345 
Cars 
C3R4 
C3H#S 
COP 


90000 
90001 
20002 
Q0005 
Q0004 
90005 
40006 
00007 
q0008 
90009 
20010 
yocul 


g00ke2 


4013 
Qo0014 
906158 
90016 
90017 
9coia 


CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 


CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
“ON 
CON 
fc ON 
CON 
CON 
Con 
CON 
“ON 


06158 
0588i 
96874 
o%9ai 
06170 
05881 
98170 
05991 
06180 
0588l 
99180 
0£865 
06158 
05881 
978458 
97000 
06150 
osasi 
979000 
05868 
06158 
Q53862 
97868 
94071 
13000 
93910 
93910 
83000 
91000 
12000 


01060 
01070 
01080 
01065 
01090 
01100 
01100 
01090 
OlLlo 
01120 
OL1120 
o111l90 
01020 
J10530 
01030 
01020 
02060 
02070 
02080 


71600 
$8716 
609000 
70900 
00Qg00 
70000 
009000 
8Q900 
009000 
80900 
Q0000 
§Qy00 
68400 
§8o84 
40000 
00900 
009006 
§0900 
00yu00 
12400 
68924 
40900 
024090 
30000 
13900 
92909 
82000 
92909 
91000 
12000 


01060 
010860 
01070 
QO1N65 
01090 
01100 
01190 
01090 
01139 
01140 
01140 
01130 
019040 
01050 
01950 
01040 
02105 
02129 
02110 


MUL 
MUL 
MUL 
MULL 
MULL 
MULL 
Muti 
GET+ 
GET+ 
GET+ 
GET+ 
GET=- 
GET=- 
GET=- 
GET=- 
Lou 
LOL 
LO 
LOL 
ABS 
ABS 
ABS 
ABS 
STLA 


A UZACC ATL MULI SHL 
tT CLACC I[ITRIO ATL MULL SHL 
9 LOL2 MULL SHL 
§ CLACC LDA2 ADSHL 
A UZACC ADSHL 

t CLACC [IK10 ADSHL 
DO LDAZ ADSHL 

$ CLACC LOA] UNARY 
A JUZACC UNARY 

I CLACC IITR10 UNARY 
O LOAL UNARY 

S§ CLACC CLA 5Up1 
A UZACC ATL CLA SUGRL 

I CLACC TIRIO ATL CLA SUBRL 
O LOL’ CLA SUBRL 

§ LOLI 

A UZACC ATL 
Y CLACC ITR10 ATL 

0 Our 

§ CLACC CLA BUFI AIT 

A UZACC ATL CLA BUFRL AIT 
1 CLACC LIRIO xIT 

9 .OL1 CLA BUFRL AIT 
TRACE LIRS 


NOTE SCLACC NOT USED MEME. 


LIRS «= LIRS LEFT SIDE IS OPeRIGHT SIVE Id FO 
TGRS TEW4S - TGR 3 TEQUS 

TGRs TEQUS = TGRSI4 

TGRS4 = TGRS TEWsS 

TEQ4S =~ TEGSS 

OPRiLLX = OPRLX 

SUBROUTINE ENTRANCES.LEFT3OP RIGHTIPYU 


&& 
om & 
i. 
& & 
~& 
&o~ 
&& 
~& 
2, = 
&& 
~& 
en 
&% 
~& 
& am 


FAD FAO 
RFSUB FSUS 
FSUs RFSUS 
FAD= FAOD= 
FMUL FMUL 
NEFMUL NFMUL 
NEMUL NFAMUL 
eMUL FMUL 
FOIV RFOIV 
NeFDIV NRFEOY 
NFDIV NRFEDV 
FIV RFOIV 
Orv RDOIV 
NOIV NROIV 
NOIV NROIV . 
SIV ROIV 
PLL RPLL 
PLL2 PLL? 
Pits PLLS 


4950 
495} 
4952 
4955 
4954 
4955 
4956 
4957 
4958 
4959 
4960 
4961 
4962 
8965 
4964 
4965 
4966 
4967 
4968 
4969 
s970 
4971 
“O72 
4973 
4974 
4975 
&976 
4977 
4978 
u979 
4940 
49861 
“9 B2 
9 us 
4964 
4985 
4986 
4987 
4988 
4989 
8990 
4991 
4992 
4995 
4994 
4995S 
4996 
4997 
4998 
4999 


1019 
1020 
1021 
1022 
1023 
10é4 
105 
1026 
1027 
1028 
1029 
1050 
1031 
1052 
1033 
1034 
1035 
1056 
1037 
1038 
1039 
1040 
104) 
1042 
1043 
Louy 
10485 
1127 
Q726 
1925 
09424 
2721 
0723 
2322 
2919 
1920 
0563 
1232 
O343 
0744 
1750 
1751 
1752 
1753 
1754 
30U9 
1363 
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Be SINARY AND ARITHMETIC OPERATORS 
Ce CONSTANT SCANNER 
DOD. 0O LOOP CONTROL 
Ee EQUIVALENCE PROCESSING 
F. FUNCTION CALLS 
Ge GFNERATOR CONTROL 
Ile ASSEMBLER STRUCTURE 
Le KGINKED MEMORY SUGROUTINES 
Ne "GET NEXT CHARACTER! ROUTINE 
P. FUNCTION AND SUBROUTINE DECLARATIONS 
Qe SPECIAL SCANNING ROUTINES 
Se SCANNER CONTROL 
3YMBOL TABLE SEARCH | 
Ue UNARY OPERATORS AND SPECIAL GENERATORS 
We INPUT OUTPUT (READ PUNCH PRINT) 
Xe PROCESSING FORMAT STRING 
Ze INITIALIZATION AND TERMINATION 
FRANKLY: IT*S A MIRACLE IF THIS PROGR&M 
EVER WORKS, 
TABLE OF FORMATS 
INFORMATION INSIOE THE COMPILER IS TReal€o IN 
TWO PRINCIPAL FORMATS+ ONE FOR THE SYMBOL 
TABLE ENTRIES IN THE SCANNER: AND ANOTHER FOR 
GENERATOR CO-ROUTINE. 
SYMGOL TASLE EQUIVALENTS ARE IN THE FURMAT 
KM AAAA LELL 
WHERE LLLL IS A LINK TO THE NEXT SYMBOL, 
FOR SEARCHING 
< EQUALS O03 SIMPLE VARIABLE 
mM 1S 08 NO MEMORY ASSIGNMENT Ad YET 
AAAA Id 0000 
4 1S 13 ASSIGNED AAAA IN UNIwUE 
STORAGE 
qm IS 28 EQUIVALENCEO, NOT YET 
ASSIGNED. AAAA [5 LINK TO 
OTHER MEMBERS OF THE 
EQUIVALENCE CLASS 
a 1S 38 ASSIGNED AAAA IN COMMON 


ian ae ee ake ES EO OO OES GOO Oe ee ee ee Se es 
4 
s 


acini. eee, atnacimiieee nena teomties ene ais omnes. cece ceeeeeien seth obiiniilien atime. cements etme eee ee ee ei eo | nein come em. ee et te fe ie aac, ag hn ps rn ee MTN Me ft een. Same 


ee Sete nn te ee ice pee play rameter spacial 


€£e*eeeeh een ee tee eke ee be ERE ERK HRERH HE HEHEHE HHEREEERHREEEHE HEE HR EE HE ER HT 


a anna ena Seeneeny 


MIS 4! A FORMAL PARAMETER: WHUSE 


SUBROUTINES ARE aSSIGNED 
AAAA+ AAAA4+1 + AND AAAA+2 
IN UNIQUE, 


4 IS $3 THE SYMBOL [5S 4 10 DIGIT 


CONSTANT. IF AAAA I> Se 
THIS CONSTANT HAS NOT JEEN 
NEEDED IN OSUECT PROGRAM 
YETe ELSE IT IS ASSIGNED TO 
LOCATION AAAA IN UNTQUE, 


« EQUALS 33 ARRAY 


AAAA LINKS TO THE OIMENSION TABLE 
FNTRY:s A IS YGNOREDe THE OIMENSION 
TABLE HAS Nei ENTRIES IF THERE aRE WN 
SUBSCRIPTS TO THIS ARRAY. 

AAAAS0! 3 ™ 8868 RARR 

AAAAM 12 o 0 TTTT sSs3ss 

AAAAF2I 0 90 cccc c000 

AAAAt 3! o Oo c¢cc goood &TC 
$S8SS IS LINK BACK TO SYMBOL TABLE 
ENTRY 
CCCC WORDS: IF PRESENTe ARE LINKS TO 
SYMBOL TABLE ENTRIES FOR CONSTANTS 
(EXCEPT FOR THE LAST DIMENSION) 
TTTT 13 THE TOTAL LENGTH OF THE ARRAY 


M IS O8 NO MEMORY ASSIGNMENT Has 


BEEN MADE AS YET, BBSB Is 0 


MI35 18 THE ADURESS 6868 IS FOR 


Atl) TeEs THE FIRST Ceti 
OF THE ARRAY: IN UNIQUE 
STORAGE 


MIS 28 EQUIVALENCED ARRAY A( RRR) 6 


SBEB IS LINK TO OTHER 
ELEMENTS IN EQUIVALENCE 
CLASS 


H IS 3% SAME AS M EQUAL TO 1 EXCEPT 


COMMON STORAGE 


MIS 48 FORMAL PARAMETER: BADE 


ADDRESS IS STOREO IN BxB0 
OF UNIQUE STORAGE> 


K EQUALS 33 LABEL 


AAAA I> THE ASSIGNMENT IN 
PROGRAM STORAGE, 


a IS O08 - UNASSIGNED AS YETe 
Mm IS 18 TEMPORARY ASSIGNMENT FOR DOO 


LOOPS. AAAA LINKS TO AN ITEM 
IN LLISTe 

AAAAtO?2 O22 TTTT AXAX 

AAAA#13s SS SSSS LLLL 
WHERE XXXX 15 LLIST LINK 
TTTT IS TEMPORARY ASSIGNMENT 
OF THE LABEL: SS SSS> {S 
LIKE A PERMENENT SYMA0;, 
TABLE ENTRY FOR LABELS, ANU 


LLL IS A LINK BACK TO THE 
SYMBOL TABLE ENTRY. 

4 IS 28 AAAA I5 THE ASSIGNHENT FOR 
THE LADEL. 

K EQUALS 68 FUNCTION 
m IS 23 ASSIGNED AAAA IN PROGRAM 
STORAGE 

M IS 83 ASSIGNED AAAAs EXTERNAL 
REFERENCE 

4M IS 93 SPECIAL OPERATOR FOR SCANNER 


ONLY 
K EQUALS 7¢* Se OR 9 OPERATORe RESERVED 
WORD 
KM AAAA IS CODE FOR OPERATORS, 
IN EQUIVALENCE LOOPS: A SPECIAL MEANING [9 
GIVEN FOR K EQUAL TO 9e WHEN M AAAA Id A 
CHANGE IN REFERENCE POINT OF THe EQUIVALENCE 
LOOP, PLUS 50000-¢ 
GENERATOR CODE FORMATS 
K T S$SS CUOCP 
FOR OPERANOSe P IS Tut SIGNe O PLUSt 3 MINUS 
T IS THE TYPES O FLOATINGe 1 INTEGER? 
2 UNSPECIFIED 
% EQUALS O8 SIMPLE VARIABLE? OR 
A CONSTANT (IF C IS 95) 
PERHAPS A HAPPY ARRAY, 
SSSS IS A LINK TO THe 
CORRESPONDING SYMBOL TABLE 
ENTRY. 
K EQUALS 138 COMPUTED RESULT IN Ra 
K EQUALS 23 INDEX REGISTER 1 
(00 VARIABLE) 
K EQUALS 338 ARRAY 
SSSS LINKS TO OIMENSION 
TABLE ENTRY REN THIS ARRAY 
IS SENT FROM SCAN+ ANO THEN 
AFTER THE SUaSCRIPT FOr THE 
ARRAY IS PROCESSED: 3555 
LINKS TO AN ENTRY ON THE 
ARAS LIST.SEE ROUTINE a FOR 
THE FORMATS IN ARASs 
« EQUALS uw TEMP STORAGE. 
S$SSS I> THE ASSIGNMENT IN 
. UNIQUE. 
K EQUALS 38 LABEL 
HERE SSSS IS 4 LINK [0 THE 
CORRESPONDING SYMBOL TABLE 
ENTRY. 
x EQUALS 483 FUNCTION 
$858 13 LINK TO SYMBUL TABLE 
K EQUALS 73 SPECIAL 
IN THE OPERANO STACK THIS 18 
SOMETIMES USED FOR AN ARRAY 
WITHOUT A SuUaSCRIPT 


L REE HERE RE EER EREEEER EEE ERE ERE ERE EEE ES EE REEREE EMER EE HEEE EEE ED 


RRA RRA KR HRERAHREERSHREKHRREKR HERA ERE E EERE EE EEE EERE EERE REE HEE EH EE EH 


K EQUALS 7e Be 


IDENTIFIERS AND SPECTAL CHARACTERS» 
TOGETHER WITH A SYMBOLIC REFERENCE 


OR 95 


OPERATOR 


ve ee eee ee eee ee ee ae ae aa es ae aa ee 


KT $8585 1S THE SAME 45 THE 
SYMBOL TABLE ENTRY KM AAAAs 
KT YS THe PRIORITY OF THE 


OPERATOR» 


99 MEANS ACTION 


FOR THe OPERATOR IMMEDIATELY 


JPON ENTRY TO GENe 


98 MEANS 


THE OPERATOR I5 A UNRY 


OPERATOR. 
le 3e 6» 


ELSE T EQUAL TO 
OR 8 MEANS 


IMMEDIATE ACTION BEFORE 
ENTERING ON THE OPERATOR 
STACK (SEE GEN CONTROL) 
RESERVED WORD CODES WHICH FOLLOW GIVE THE 
SYMBOL TABLE ENTRIES FOR ALL RESERVED 


CORRESPONDING TO THE ASSEMBLY LISTING OF 


YI FORTRAN CE 


RESERVED WORD CODES 


ITEM?! 


+o we Mw EKRN FT 


( 

) 

t 

NO 

List 
CORE 
TRACE 
TO 
THROUSH 


18) 
CONTINUE 
Pause 
STOP 

END 
FUNCTION 
SUBROUTINE 
READ 
PRINT 
FORMAT 
R=ETURN 


CODES 
99410850000 
9941040000 
8441159000 
9941010000 
9941110000 
7341140000 
7090000000 
7841130000 
994 1U80000 
9941170000 
9941010000 
7000000000 
7341140000 
6941320000 
6941330000 
6941370000 
45941360000 
6940500000 
99413580000 
9941310000 
9941300000 
9941070000 
9941000000 
69490500000 
9841410000 
9841420000 
9941430000 
9941440000 
994) 480000 
9941460000 
9941470000 
9941490000 
9941500000 


SYMBOLIC! 


99 
99 
84 
99 
99 
73 
7 
738 
99 
99 
99 
70 
73 
69 
69 
69 
69 
69 
99 
99 
99 
99 
99 
69 
98 
98 
99 
99 
99 
99 
99 
99 
99 


SIGNS 
SIGN~ 
SIGNS 
SIGNS 
SIGN* 
SIGNS 
0000 

SIGNe 
SIGN& 
SIGNA 
SIGNS 
Q000 

SIGNS 
WONO 

WOLIs 
wDCOR 
woTRe 
SCANL 
WOTRYU 
woGo 

ASSl1 

WOIF 

wooo 

SCANIL 
wOPOZ 
WOSTP 
WOEND 
WOFUN 
wOSUS 
WORED 
WOPRT 
WOFMT 
WORTH 


5 eae ATS tagey« 


Fe KEE HKHEKE REPRE RHE HR ERHE RH SEH 


OIMENSION 
COMAON 
EQUIVLENCE 
SIN 

cos 

SORT 

TAN 
ARCTAN 

LN 

EXP 

ASS 

FLOAT 

FIX 

PUNCH 
CALL 

NOT 

OR 

AND 
CARYS 


9941510000 
99415209000 
9941530000 
9841200000 
9841210000 
9841190000 
9841220000 
9841250000 
9841240000 
9841250000 
9841260000 
98415490000 
9841550000 
9941590000 
9941600000 
9841610000 
7941630000 
8041620000 
6941660000 


wOOIH 
wOCOM 
woOEQuU 
SINF 
COSF 
SQRTF 
TANF 
ATANF 
LNF 
EXPF 
ABSF 
FLOTF 
F IAF 
wOPCH 
WOCAL 
BCOMP 
BOR 
BLAND 
WOPRG 
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Ge GENERATOR CONTROL 
THIS ROUTINE CONTROLS THE 
GENERATOR COMROUTINE, 


Vo7> ‘3 3 THE NORMAL EXIT AT THE COMPLETION OF A GENER 
OO a ay OH OO ee ay en TOA OD a OS Se ? ATED ITEM IS TO Gle WHICH STARTS THE 
8. Gl. SCAN NEAT ITEM, t t PROCESSING OF THE NEXT ITEM. AT THE END OF 
3 


GENERATING CODE FOR CERTAIN OPERATORS» exit 
OCCURS TO GLO RATHER THAN Gle SINCE WE MAY 
WISH TO PERFORM SEVERAL OPERATIONS BEFORE 


| HY 
Oleesensestetcccaseeseasgiaovtess(Q 


0665 3 : 5 SCANNING ANOTHER ITEMe 
( peewee tat ne ne mnewewr eine) , ‘ Gle SCAN NEXT ITEM, 
{ Gee ISIT AN OPERATOR } YEStecanectoetoccateeeeee dO ACTIVATE THE SC ANNER COROUTINE, 
(ee ee ee as eC ey OS ) t $ 3 NORMALLY THIS MEANS WE ENTER STEP Sle 
NOS : t : : G2e ISIT AN OPERATOR 
y t : ; If THE ITEM SCANNED IS AN OPERATOR: GU IO G6e 
Voss 8 t 3 3 GSe OPERAND STACKED 
a ee : : ' PUT THE ITEM AT THE TOP OF THE OPERANU STACK. 
a GSe OPERAND STACKED 5 t g t G4e IS IT AN ARRAY 
a VO Oe cae OF On On CD A OD Oy AE Ye t t $ IF THE OPERAND Is A DIMENSIONED VARIASLE + 
t t : | GO TO Ale 
3 t H t GSe SCAN NEXT ITEM 
U686 $ t 3 t IF THE NEAT ITEM IS A LEFT PARENTHESI>¢ we 
( seer ee eres ete mernnme ates) , t ' TENTATIVELY HAVE A FUNCTION CaLL SO We uO 
¢ G4. IS IT AN ARRAY D VESVa ceca gtoeteeeeiseetagetecseeteentes Al TO STEP Fi. 
(et a ce ae cae 008 0 an at an ee ome ED cen a ON OH) f t : OTHERWISE WE GO SACK TO STEP G2. 
NUS g ! t ’ G60 WHAT KINO OPERATOR 
: : IF THE OPERATOR JUST SCANNEO 1S ONE THaT 
Uo92 3 t 3 t REQUIRES IMMEDIATE aCTION (CODE 99) SRANCH 
(cree ey eee) (2 secre stort oare les OFeeesseeseseseves Fi TO THE ROUTINE FOR THIS OP. 
-¢ GSe SCAN NEXT ITEM ) t : t IF wk HAVE A UNARY OPERATOR (CODE 9%) SUCH 
(Oe ce en OO gy ON Oe ay aH ED SO A eae OD OH OTHieceacntserees)O ’ AS iM OR ABS+ GO TO G206 


OTHERWISE WE HAVE A SINARY OPERATOR 
OR a DELIMITER WHOSE PRECEDENCE 15 TO Be 
TESTED. 
G7e PUT OP IN OHOLD 
PUT THE OPERATOR JUST SCANNED INTO LOCATION 
"OHOLD? BEFORE DECIDING WHAT TO CO WITH ITe 


¢ 8 
DlLeccecceetet aes ereotegagtvnetegesessetee(O 
0097 t ’ 
ee ee a Se A ay 0 ay eas ON en ae a TMMie cece leet Seen se eg geerseneseenter OP 


( GO6e WHAT KINO OPERATOR ) 


(cre Fe ee UN 4 @eteee 2 eeteecs 0 


UTHs 3 ¢ 2 GlOeP (RATOR) $P (OHOL DO) 
$ : : CHECK THE PRECEDENCE OF THE TOP OPERATION ON 
eile ' THE OPERATOR STACK AGAINST THE PRECEDENCE OF 
: G7. PUT OP IN OHOLD. ‘ t : IF IT IS LESS (EeGee IN AtB*Ce + IS LESS 
AO OO OP es eae gy SE OY ogy Ue iy OD Mh em OY aD ES eH OH SP ee t t THAN >) e we MUS T WAIT B&F ORE OPERATING 
| t H FURTHER SO WE GO TO G1Ge 
$ t : IF IT HAS GREATER PRECEDENCE OR 
U7 10 : t t EQUaL PRECEDENCE HOWEVER? THE OFERATOR ON TOP 
(ee ee ee ag 0 a Ot ay UA eee a OH OH LSStPevesantesteccceteseeeeIO OF THE STACK 1s REMOVED AND #E BRANCH TO THE 
( GIO.P(RATOR) SP(OHOLD) =? ! : : APPROPRIATE ROUTINE FOR THIS OP. 
(ee ow eo cre 9g, 2m On gy OF ow a an Oe eee ea GEQSeeececteeseeealesetggeiesereeesetyes OP PRE. EQENCE Is 7u FOR VARIOUS KINOS OF Lert 


PARENTHESES + 73 FoR % 73 FOR EQUALS 
7B FOR COMMAe 79 FOR OR* 80 FOR ANDs 


$ $ t 
Clear eeederedgaecstetenetotteetelesetes (fo 


U72T t t $ ig FOR PLUS AND MINUSs &8& FOR UNARY MINUS 
[SSeS ae Sane awe en : ; FOR MULTIPLYs AND For OIVIDEs 87 FOR POWERs 
( GIF COMMA OR SEMICOLON ) YESteceenctesvecvetesetacsecseresesetyes OP AND 993 FOR UNARY OPERATORS 
Pree bey renee et ry t GlVeCOMHA OR SEMI=ZOLON 
NOQ? t 


IF QJHOLO HAS 4 PRECEDENCE WHOSE UNITS OIGIT 
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15193e600R @ IT mEANS wie ARE TO BRANCH TO 


07 357 : t THIs OP NOw THaT THE PRECEDENCE HAS BEEN 
6S ee een ern eae t CHECKED. AT PRESENT THIS IS USED ONLY FOR 
$ G2ZO0.OPERATOR STACKED Peceetseses) A SEMICOLON (EQN OF STATEMENT) OR COMMA AND THE 


De OO 8 gg GOO OH gg Eh en on HN en as OO a, e 


MEANS BRANCH TO THE ROUTINE SPECIFIED Sy THE 
CURRENT MODE > 
OTHERWISE WE GO TO G20 TO PUT OHOLD 

ON THE OPERATOR STACK 

G2Z0eOPERATOR STACKED 
THE OPERATOR IS PUT ON TOP OF THE OPERATOR 
STACK AND WE RETURN TO Gl. 

-COOING DETAILS! 
UPON ENTRY TO S&ETe REGISTER & CONTAINS THE 
CURRENT ITEM AND REGISTER X CONTAINS THe 
PREVIOUS ITEM. THESE ARE IN *GENERATOR CODE? 
WHICH IS EXPLAINED IN THE TASLE OF FORMATS 
IN THE sEGINNING OF THE FLOWCHARTS~» 
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e OD O10 ED RE ae Ga gag SHE EE a OE ge ik oe gy een EE cn SE gy ED en DO a e t 
$ 8 
3 3 
U753 $ 8 
(eg OE a gy Dm N$ CEC eesti eSFeeeseeHFhggeateeeeteeevee ci 
(. Sa@e WHAT KIND —— Vg mtn teetaecan cere igngeetevesvecceter C2 
( etm meme memnam mam) ALF Se sess stecseeedO 
BLNKeceocesdA s 
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0765 t $ g 

e Se Oe 0 og OH Oa ap in Wh en OO eh Ae ah OY OS an g g 
8 $3. LOOK FOR J JUKLMN 8 t ’ 
A NO ae ce gy, OO OO OO ogy, A OD way en HE ED GE EO Hee gg 3 g 
t t t 

$ q 3 

0782 3 : 3 

0 OOO Os 0 cap tat gy OE OOP OU gy OO ay, an OT OG OT ae @ g t 
$ $4. NEXT CHARACTERS 3 t $ 
’ t 

3 

ie) 


0790 : t 

PO a ggg CH OO 0a OE Oy, G8 ENE ON OD ae ¢ 
8 S50 SEARCH SYMBOL TABLE 38 ’ 
e nee ee ee Ee ee ee ee aan a » 2 
8 t 

q : 

UT97 $ $ 

e ee ee ne eee ae er a ae ee e t 
' S$10,TRANSLATE TO GEN COv! t 
PO Oe Oe OF gy PE FO ay OO Oe ay can ie eo os a oe ? 
s t 

8 t 

Vege ] 3 

e SN NE i a EI OO Se e t 
8 S$20.S5END TO GEN Seoeesentse)i 
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S36 


S%o 


SSe 


SCANNER CONTROL, 

THIs ROUTINE CONTROLS THE SCANNER COMKOUTING « 

NORMALLY ENTRY TO THE SCANNER IS TO STEP 531 

WHICH BEGINS TO SCAN A NEw ITEM, 

NEXT CHARACTER 

GET THE NEXT CHARACTER FORM THE INFUT CakO 
(ROUTINE ND). 

WHAT KIND 

IF THE CHARACTER IS NUMERICe IT TS Tre 

BEGINNING OF A CONSTANTe SO W& GO TO Cl. 

& DECIMAL POINT ALSO MEANS A CONSTANT? GO TO 

STEP C2e 

IF THE CHARACTER IS ALPHABETIC IT MEANS THE 

FIRST LETTER OF AN IDENTIFIER: SO WE GO TO 
S36 

IF THE CHARACTER IS BLANK*e RETURN TO Si, 

OTHERWISE WE HAVE A SPECIAL CHARACTER. EACH 

SPECIAL CHARACTER IS TREATEO EXACTLY AS AN 
TOENTIFIER TO LENGTH 1 AND WE GO TO STEP S5-e 

LOOK FOR IJKLMN 

TF THIS CHARACTER IS THE LETTER I THROUGH Ne 

RECORD FOR FUTURE REFERENCE THAT THIS 
IDENTIFIER IS INTEGER TYPE. ALSO PREPARE TO 

RUILD UP TO FIVE CHARACTERS OF EVERY IDEN@ 

TIFIER IN A COMPUTER WORDs IN THE FORM 

ZZZZZNNNNN WITH LEADING BLANKS, | 

NEXT CHARACTERS 

SUCCESSIVELY GET CHARACTERS FROM THE Cand 
(ROUTINE N) UNTIL THE FIRST NON@ALPHNUMERIC 

CHARACTER APPEARS. IF THE TERMINAL CHARACTER 
TS NONBLANKe *PUT IT BACK*ON THE CARD 50 IT 

WILL COME THROUGH AGAIN NEXT TIME. 

SEARCH SYMBOL TASLE 

ACTIVATE ROUTINE T TO SEARCH FOR TAIS IUENT@ 
IFIcR OR SPECIAL CHARACTER IN THE SYMGOL 

TABLE. IF NOT FOUND. IT IS ENTEREO IN THE 

TABLE AS A SIMPLE VARIABLE IF FOUND: THE 

cODeE FOUND IS USED IN STEP $10. 


SlOceTRANSLATE TO GEN CODE> 


WE HAVE AN ITEM WHICH WE WANT TO SENO 
TO THE GENERATOR: BUT IT 18 IN SYMBOL TaBLe 
FORMAT RATHER THAN GENERATOR FORMATs 
SPECIFICATIONS OF THESE FORMATS ARE GIVEN AT 
THE BEGINNING OF THE FLOWCHART LISTINGS. 

THE CONVERSION IS MADE AT THIS POINT. IF THE 
SPECIAL CODE 69 OCCURS HERE A BRANCH 1S MADE 
TO THE SPECIAL SCANNER OPERATOR WHICH NEVER 
GETS TO FHE GENERATOR CU-ROUTINE, SUCH as 
TRACE +L IST*CAROS ETC. THE APOSTROPHE OPERATOR 
(MEANING END OF CARD)+ KOUTINE @+ IS ONE OF 
THESE SPECIAL SCANNER OPERATORS » THE 
OTHERS ARE MENTIONED IN STEP U29-6 


S20eSEN) TO GEN 


THE CODEO ITE4 IS SENT TO GEN, USUALLY 
THIs IS TO STEP Gi. UPON REENTRYe SCAN @#ILl 


START UP AGAIN AT 51, 


te # ete # £ be HH 
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) NO? eee0ee 30 


oe 8 28 26 
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> YES2eeeccateetoee) 0 
+ 3 
t 1 


Dleerecseetetecenseeteangteeteesetavetee(O 


Os2s $ 
( Se ay SO gy Sn at 
( Nle WAS CHAR PUT BACK 
( OO ym egy SF OO ay OO Oe es oe OO ca wp ot a OD 
NO8 | 
2 
Ve 30 $ 
( Fe ea ee ee a eee ae ae ) 
( Né@e END OF WORD 
| ee ee eee TT ) 
Yass | 
3 
UB41 $ 
( Ee a ee ae ean ca SP Om SO a a } 
( N356 ENO OF CARD 
( RE 00 ae eee een cen WE TP OO gay 8 cay see OLD ON CUD ep Oh Oh es ) 
NOS 8 
Us4s 3 
e A RG CE BP ay OD aay CD HO MP OR OE ogy Gh WD cay cai HE DD cae RD ah HE OD ON gy e 
3 N4e GET NEW WORD 
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3 N2O0eGET NEW CARD 
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Ne 
Nile 


N2e 


Ne 


Nie 


"GET NEAT CHARACTER? ROUTINE 

WAS CHAR PUT SACK 

IF A CHARACTER HAS BEEN * PUT BACKE 

RE“EMIT THIS CHARACTER AND EXIT. 

END OF WORD 

IF wk ARE NOT AT THE EXW OF THE CURRENT 

TEN@COLUMN PART OF THE CARD: GO TO STcP NIOs 

ELS¢ WE MUST SRING UP ANOTHER SECTION OF THE 
CARD. 

END OF CARDO 

IF WE ARE AT THE END OF THIS CARED: 

STEP N20. 

GET NEW WORD 

RRING UP THE NEW WORDe THIS MEANS USUALLY 

THAT THE NEXT TeN ZONES AND NEXT TEN 

NUMERTCS ARE GROUGHT UPe SPECIAL ACTION [5 

TaKEN ON THE ATH WORD OF B8O-COLUMN Caxos 

TO STOP AFTER COLUMN 729 AND ON THE FIRST 

WORD TO START EITHER AT COLUMN 7 OR AT 

COLUMN 1 IF THERE 1S A LABEL. 


ONTHeE CARO 


60 TO 


NIQcEXTRACT NEXT CHaR 


REMOVE THE NEXT CHARACTER FROM THE CAND ANO 
EXIT. 


N2Q0cGET NEW CARD 


UNLUAD HSR BUFFER IF IT HAS NOT ALKEAVY BEEN 
UNLOADED. IF NO CARD IS CURKENTLY IN PROCESS¢e 
GIlVe 2223 ERROR HALT. 


NéleMOVe SUFFERS 


i a ae ee — : a ne cna - ~ Ss = —_ : ‘ 
mers Scones: has ire Eg a a 5 a a ae a 


INITIATE READING NEXT CARD, AND TRANSFER 
HSR INTERLACE TO PRINTER INTERLACE> 
PRINT OUT THE CARD IMAGE? TOGETHER WITH 
LEVEL + SAND. 

RESET EMITTER ANDO GO TO N&e 
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Te SYMBOL TABLE SEARCH. 
THIs SUSROUTINE 15 ;SED TO LOOK UP [IDENTIFIER 
SPECIAL CHARACTERS+ CONSTANTS: ANG STATEMENT 
NUMBERS (LABELS) IN THE SIG TASLE, IF NOT 
IN THE TABLE+e THE ITEM IS ENTERED IN. 
Tle SCRAMBLE 
MUL flelLy ITEM 3y 1010104010 40 THE, Aud 
(OC FOR CONSTANTS+ LENGTH FOR JOENTIFIERS 
OR 99 FOR STATEMENT NUMBERS). TAKE THE 
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neg ee eaten ge ee ce ee See aon eee eee ay ae | YM LL ® 
( Td, 15 STACK EXHAUSTED ? YES te cece ctocre nen ereetoscccecccccccees KAIT T2, 1S STACK EXHAUSTED 
(ete a es ey eS a ah Om} : IF THISSTACK HAS BEEN ENTIRELY PROCESDEUs 
NOS $ ? INSERT THIS ITEM INTO THE TASLE ON THIS 
t $ STACK. EXIT. 
ila 3 t T3e DOES SYMBOL MATCH 
(0 eg ee ae a Oe, eae en om ew) t COMP ARE THE CURRENT ITEM IN THE STACK 
V. Tee DOES SYMBOL MATCH: 2 NOE seis }D AGAINST THE DESIRED SYMBOL, IF THERE 1S NO 
(ee ee ne cae ap 0 OO gy Oe an ee NO es a ome om OH) MATCH Go BACK TO Tas 
YES3 3 T4e GET TABLE ENTRY 
t GET THE CORRESPONDING ENTRY FOR THE SYMuOL We 
115e ¢ HAVE JUST FOUNDe EXITe 
0 0 OF 0a ag, GH OH OF ag 8 cay ta ey OO ee SD oe ne, CODING DETAILS! 
$ TS. GET TASLE ENTRY Seoerecernsceeerhaecesesseescesseveseceses EAIT AT INPUTs REGISTER a CONTAINS THE LENGTH OF 
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SYMBOL® REGISTER X CONTAINS THE CODE TO USE 
IF NOT FOUND IN THE TABLEs RL CONTAINS THE 
EXIT INSTRUCTION: TEMP2 CONTAINS THE SYMBOL. 
AT EXrTe RL CONTAINS THE LOCATIONS OF THE 
TABLE ENTRY IN ITS M ADURESS:» AND TEMPu I 
THE SQUIVALENT OF THE SYMBOL, 
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Le LINKED MEMORY SUBROUTINES. 
THESE SUBROUTINES ARE USED IMPLICITLY IN MANY 
PLACES OF THE PROGRAM: TO STORE AND RETRIEVE 
INFORMATION FROM A POOLED MEMORY AREA. 
THE FORMAT FOR POOLEN MEMORY [5 
STACK MEAD? OO LINK OO000 
AVAIL STACK O30 LINK O000 
OTHER ITEMS ARE IN TWO WORD FORMATS 
LINK INFO) LINK Lllilid2c2 
LINK*1 INF O 2 jhdbabidia 
ZERY LINK INOICATES THE END. THE POOL I> 
KEPT 3E TWEEN .OCATIONS MEMLIL AND MEMUI 
THE SYMBOL, TABLE AND STACKS WORK DOWN FROM 
MEMU1e OIMENSIONS AND EQUIVALENCE ENTHIES 
ARE INSERTED UP FROM MEMLie : 
IN THIS SECTIONe ENTRANCE L1 IS CALLEU FINS® 
AND IT IS FOR INSERTING ITEMS, WHILE ENTRANCE 
L10 1S FOR DELETING ITEMS FROM STACKS ANDO IT 
TS CALLED ‘'REM*, 
Lle IS AVAIL EMPTY 
IF THE AVAIL STACK 1S NOT EHPTY+REMOVE AN 
ITEM AND GO TO L4e 
L2e MEML SMEMU 
IF THERE IS NO ROOM FOR ANOTHER ITEMs Give 
THE IT*M FULL ERROR ALARA, 
L3e RESERVE TWO 
DECREASE MEMU BY 2e WE WILL USE THESE Tao 
LOCATIONS FOR THE NEw ITEM, 
L4e INSERT ITEM 
PUT THE NEW ITEM INTO THE MEMORYs FIX UP 
LINKS PROPERLYe ExITe 
CODING DETAILS FOR INS 
RB1 CONTAINS STACK HEAD LOCATION 
RL CONTAINS EXIT INSTRUCTION 
RA CONTAINS INFO2+RX CONTAINS INFOi 
AT exXi Ts RL IS NEW CONTENTS OF STACK MEADS 
RX 1S INFO2> 
LiIOelS STACK EMPTY 
IF aTACK HAS NO ITEMS#GO TO EXIT2e 
LileREMUVE ITEM 
REMOVS TOP ITEM OF STACK 
LigeMAKe LOCATION AVAIL 
PUT THE LOCATION JUST FREED ONTO TRE AVAIL 
STACK. EXITLe 
CODING DETAILS FOR REME 
Rl IS THE STACK HEAD LOCATION: 
RX 1S THE EMPTY EXIT (EATT2)6 
RL IS THE OROINARY EXITI. 
SUTPUTS R31 IS THE LOCATIONe RL IS INFOL. 
INFO? I> STILL IN MEMORY. 
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Ce CONSTANT SCANNER 


Cle SET TYPE INTEGER 
INI‘T«LI2E N TO THE NUMBER JUST SCANNED? 
SET TYP: INTEGER. GO TO C3. 

Cae SET FLOATING TYPEs 
SET N TO FLOATING POINT TyPe. 

C3e NEXT CHARACTER 
GET THE NEXT NON@BLANK CHARACTER FROM THE 
CARY (ROUTINE N), 

C4e WHAT KIND 
IF CHARACTER IS NUMERIC®*SET N TO LUNWeCHARY 
GO TO C3e 
IF a DECIMAL POINT, GO TO ce, 
IF ALPHABETICe GO TO CSe 
IF SPECIAL CHARACTER» PUT IT SACK ON THE CARDs 
AND GO TO Cée 

CS5e —& HOR M 
IN A STATEMENT LABEL CONTEXT wE GO IMMEUIATEL 
TO CS&e OTHERWISE we GO TO ClO FOR AN E, 
TO 20 FOR AN Me 
TO C30 FOR AN He 
OTHERWISE IT IS THE ENO OF THE CONSTANT 
(PROBABLY SYNTACTICALLY INCORRECT) ANDO wE& GO 
TO sTEP Ce 

Coe ADJUST FOR TYPE 
IF FLOATING POINT TYPE OCCURRE Or CONVERT W TO 
FLOATING POINT FORMATs ELSE SET N TO 1OSO 
TIMES N, 

C7e IS IT A LABEL 
IF VL ASEL CONTEXTeENTER SPECIAL ROUTING FOR 
THIS CASE sDEPENDING ON THE SETTING OF THE 
LABEL SWITCHe THE LAREL SWITCH IS AUTOMaT= 

ICALLY SET OFF EVENY TIME GEN Io 

ENTERED; GEN WILL SET IT WRENEVER A LABEL MAY 
BE EXPECTED. 

Cée LOOK UP IN TABLE 
ACTIVaTé ROUTING T FOR THIS CONSTANTs THEN GO 
TO 310 TO SEND « CONSTANT CODE TO GEN- 

CLIOsNORMALIZE 
INSERT « DECIMAL POINT IF NONE PRECEDED, 
F eG. 3E5e 


CLIeNEXT CHARACTER 
ACTIVATE ROUTING N FOR THE NEXT CHARACTER. 
CL2eWHAT KIND 
IF gLANs+ RETURN. TO Cile 
IF NUMERICePUuT BACK ON CARD+ RECORD + SIGNe 
TO C136 
I= PLUS OR MINUS: RECORU THE SIGN. TO Cid. 
STHZRWISE GIVE THE BAD CONSTANT ALARM. 
CL3BeNEXT NUMPERS 
CONTINUE ACTIVATING ROUTINE N UNTIL A NON“BLA 
Nike+ NON@NUMERIC CHARACTER APPEARS, 
Cl4eADUUST EXPONENT 
ADD THE EXPONENT TO THE FLOATING POINT 
CONSTANTe IF OVERFLOW OR UNDERFLOW OCCURS? 
GIVE THE BAD CONSTANT ALARMe 
OTHERWISE RETURN TO C7. 
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C200eGET N CHARACTERS 
GET NEXT N CHARACTERS FROM CARO INCLUVING 
BLANKS AND BUILO MACHINE CODE CONSTANT. 
TO C32 

C30eGET N CHARACTERS 
SET HOLLERITH SWITCH IN ROUTINE Né& THIS 
SWITCH SIGNALS THAT ROUTINE TO TRANSMIT 
CHARACTERS IN CARD CODE ON 90<COLUMN SYSTEMS 
AND ALSO TO SUPPRESS A SPECIAL HIGH-SPEED 
SKIP OVER BLANK COLUMNS WHICH IT USUALLY 
HAS. GET THE NEXT N CHARACTERS FROM THE 
CARD» ANDO SUILD AN ALPHA CODE CONSTANT 
IN GARD CODE. 

C3ieZERO FILL 
IF N IS LESS THAN Se ADD ZERVES TO FILL THE 
CONSTANT. RESTORE THE HOLLERITH SWITCH 
TO NORMALe IF N IS MORE THAN 30 CRAZY 
CONSTANTS ARE SENERATED 

C32eTYPe UNSPECIFIED. 
SET THE TYPE OF THIS CONSTANT 10 UNSPECIFIEDes 
GO TO C7e 
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Qe. SPECIAL SCANNING ROUTINGS 

ENTR: WCE TO G1 OCCURS WHEN THE ENO OF CaRO 

( WHIcH IS DETECTED &Y AN APOSTROPHME INSERTEO 

@AY ROUTINE N) IS SENSED. ENTRANCE Glu 15 

USEu TD OIVERT NORMAL CUNTROL, OF SCAN? IN 

ORDER TO EMIT A STRING OF INSERTED ITEMS 

BEFORE RESUMING ORDINARY SCANNINGs 

SEND SEMICOLON 

SEND SEMICOLON TO GEN RUUTINE >» 

END OF THE STATEMENT. 

END OF DO RANGE 

IF THE CARO JUST CoMpLETED I, THE END oF A 

NO RANGEe GO TO O4O, 

ANY LABEL 

IF COLS 1°35 OF THE NEAT CARD ARE SLANKeTO Sle 

Te cOL 1 IS NUM& SIGN GO TO SPECIAL RESERVED 

WOR) ENTERING PROCEDURE. 

SCAN FROM COL 1 

SET TO SCAN THIS CARD AT COLUMN 1 RATNEN THAN 

COLUMN 7+AND SET THE LABEL SwTICH (c7) TO 

JUMP TO THE CHECKING ROUTINE MENTIONEU IN THE 

COMMENT JUST SEFORE STEP DUOe THEN 

RETURN TO Sle 

QLOeAQJUST COMROUTIWE LINKSe 
STORE CURRENT STARTING PLACE FOR SCAN CUMeKRTNE 
IN cXIT OF THIS OXVRT SUBROUTINE. WE WILL 
CoMe SACK TO THIS AFTER ALL SPECIal ITEMS 
HAVE SEEN INSERT IN THE PSEUQOCODE. 

QlleNEXT ITEMe 
LOOK AT THE NEXT ITEM TAKEN FROM THE INDSER@~ 
TION TABLEs IF IT 15 CERO, WE ARE OONE 
INSERTING AND SO WE EXIT TO RESTART THE SCAN 

CO-ROUT INE. 

QizgeSENY TO GEN. 

SEND ITEM TO GENeTHEN RETURN TQ QL1. 

CODING DETAILS!# OIVT2 1S USED TO RE~YNSERT THE 
PREVIOUSLY SCANNED {TEM AT THE ENO OF THE 
OTHER INSERTS. OIVTL 18S USED TO RESET GEN 
TO ENTER AT Gle DIVRT IS THE NORMAL ENTRY 
REGISTER A CONTAINS THE STARTING T=TABLE 
ENTRY. THIS ROUTINE 7S ENTERED FROM GEN, 
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Te ASSEMBLER STRUCTURE 
TABLE OF CONTENTS 
THIS SECTION IS A COMPLEX OF SUSROUTINES FOR 
ASSEMBLING THE MACHINE LANGUAGE INSTRUCTIONS. 
THE NAMES OF THESE VARIOUS LEVELS AND THEIR 
FUNCTIONS ARE 
Tle ASML MACRO ASSEMBLER cee ASSEMBLED 
1 TO S INSTRUCTIONS ANOD/OR 
PSEUDO-INSTRUCTIONS 
1250 ASM2Z2 ASSEMBLES ENCODED INSTRUCTIONS? 
FIXING UP THE ADDRESSES OF OPERAND 
130, ASM25 HALF ASMBLERe*LIKE ASM2 EXCEPT IT 
DEALS WITH ONE ADDRESS MeO ONLYe 
T35- ASM28 SPECIAL aSSEMBLER FOR aODRESSES OF 
SIMPLE VARIABLES AND CONSTANTS. 
1S0e ASIGN FINOS ADDRESSES OF OPERANDS 
1605. LS FINDS ADORESSES OF STATEMENT LABEL 
170. CASIN FINUS ADDRESSES OF CONSTANTS. 
180. ASM3 ASSEMELES INSTRUCTIONS AND 
FIXES UP REFERENCES TO'NEXT INST? 
190. ASMY PROCESSES ASSEMBLED INSTRUCTIONS 
AND LOCATIONS: IN OR OUT OF SEQUENCE + 
ANO PERHAPS LISTS THEMe 
195e¢ ASH5S PUT ONE J TEM ON OUTPUT CARD, 
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Ie I80,. ASDEMBLER GS 
THIs SUSROUTINE “SSMELBLS ABSOLUTE INOTRUC@= 
TIONS ANO FIXES UP REFERENCES TO *NEXT?, 
& ONE“CYCLE DELAY IS KEPT»AN INSTRUCTION IS 
NO PUT QUT UNTIL THE NEAT INSTRUCTION COMES 
ALONG e 

T80e1S WxXLOC SET 
IF WO PARTICULAR LOCATIUN FOR THE CURKENT 
INSTRUCTION HAS BEEN CHOSENe CHOOSE THE NEXT 
LOCATION IN THE INTERLACE SEQUENCE. 

I8leF ILL PREV INST 
FILL SLANK ADDRESSES IN PREVIOUS INSTRUCTION: 
IF ANYe WITH THE LOCATION OF THIS ONE> 

ISB2ceASSEMSLER Seo 
ACTIVATE ROUTINE I91 TO OUTPUT THE PRECEDING 
INSTRUCTION, EXIT, 

CODING DETAILS? RX [8S ORROSUOOFF WHERE RK ARE 
RELOCATION DIGITS FOR M AND Ce §S IS SIGNe ANO 
FF aRE © OR 1 FOR NON“SLANK OR BLANK ADURESS,s 
RESPECTIVELYs KA IS THE INSTRUCTIONe RL IS 
THE EXI Te ASM31-ASM37 ARE SPECIAL ENTRANCES 
FOR THE MOST COMMON CASES IN SETTING RX. 
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Te 1904 ASSEMBLER 4G. 
THIS SUSROUTINE PROCESSES ASSEMBLED INSTRUC 
TIONS AND LOCATIONS. ENTRY 190 I5 USED FOR 
QUT-OF SEQUENCE LINES» 19] FOR THE PROGRAM 
SEQUENCE. 

L9OeSET eekuageeae 
SAVce COMMENT RESERVED FUR NEXT INSTRUCTION IN 
PROGRAM SEQUENCEs AND INSERT THE COMMENT 
HK MCE g 

I9lePRINTe MAYBE 
IF WIST MODE IS ON, PRINT THE ASSEMBLED LINE 
AND THE COMMENT. 

I92eASSEMBLER 5 
PUT THE CONTROL WORD INTO THE OUTPUT 
(ROUTINE 195) 
AND ALSO STORE THE COMMENT FOR THE NEAT 
INSTRUCTION LINE. 

I9SeASSEMSALER 5 
PUT THE INSTRUCTION WORU INTO THE OUTPUT 
(ROUTINE [95)-e EXIT. 

CODING VETAILSS 
ASMG3eASM4U4 PUT REGISTER A AS OQOUT-OF “SEQUENCE 
LINE INTO NEXT LOCATION OF UNIQUE STORAGE 
ASM42 PUTS TEMP2 AS OQUT@OF<SEQUENCE INTO 
LOC SPECIFIED BY 7 AMORESS OF RAe RELOCATION 
OIGIT FOR M AEING SPECIFIED IN REGISTER L. 
ASM41LeASMS HAVE CONTROL WORD IN REGISTER Apt 
INSTRUCTION WORD IN REGISTER X. 
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41717 ? 
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3 198 .COMPUTE CHECK SUM. 8 
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Oe ag 0 0 gy Ot egy es HE ED OD OD Oe OO He 
8 199 «PUNCH 
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Nor CHS eee SeeFFS ese esetsEOggeeeeseseHueetye ExIT 
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Te 195. ASSEMBLER & 
THla SU-ROUTINE IS THi SOLE COMMUNICATION 
SETWEEN THE COMPILER ANU THE OUTPUT CARUOSe 

195eSTORE WORD 
PUT THE OUTPUT WORD IN THE PUNCH INTERLACEe 

I96eEND OF CARO 
IF THE CARD IS wOT FULL YETe 

I97TeCHECK CaRO 
UNLESS NO CAROS MODE IS IN EFFECTse UNLOAD 
THE SUFFER. THE THE 2ND READ STATEION Id NON@ 
BLANK* SUM CHECK THE IMAGE AVAILABLE THERE 
Glyve zpiy2 MALT IF THIS FAILS, AND OuMr rise 
BUFFER » 

I9BeCOMPUTE CHECK SuM, 

COMPUTE SUM OF NUMERIC PORTIONS OF First 
SEVEN WORDSe AND PLACE IN WORD a OF CARY. 

199 ePUNCH 

PUNCH CARDe INCREASE SEQUENCE NUMBER? 


EAXITe 


EXIT. 
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Te 150.4 ASIGN SUBROUTINE 
THIS SUBROUTINE FINDS*OR MAKES*+ THE MEMONY 
ASSIGNMENT FOR SIMPLE VARIABLES+ ARKAYS, OR 


1601 3 TEMP STORAGESe IT IS NOT A TRUE SUBROUTINE > 
( me geen aetna mn nen ati FOR IF THE ITcM TURNS OUT TO BE A CONSTANT 
( 150.135 17 A TEMP » YES&8eeeee)O OR HAPPY ARRYs IT JUMPS INTO THE MIDOLE OF 
(Selene aes Se Sar ere sas se) t ASMé8 ROUTINE. 
NO 8 t t ISG0eIS IT A TEMP 
Cleeecccsseeteccesestgggtettoge (YD IF THE ITEM TO BE ASSIGNED I5 A TEMP STURAGE, 
i8UuS t 3 $ SO TO I5é6¢ 
(0 sae gg SF Oy OF ay cue nae OP es mt oni OH) DEF Se oon steeteasetese Ogee eseeeetetstes DEF x 151] e¢WHAT Is TABLE ENTRY 
( I51,WHAT IS TABLE ENTRY ) PAR eg emce st aeetogneteeetegessecccscec cess oPARAH Ie THe TABLE ENTRY INDICATES TRIS ITEM [5 
( Her me Maa mmwmmmmmmmen) CONS eg cececteelecccleeeeesecseseeseeseecASMaad NEFINED IN UNIQUE OR COHMONSGOTO DEFX. 
EQUte cece nt eetegtetoetteeeeceesesenetes ae | If THE ITEM IS A PARAMETER.GO TO THE PARAMETE 


EXIT, IF THE ITEM 1S A CONSTANT, GO TO STEP 
136 IN ASM26¢0R IF DOING A FUNCTION CALL oO 
TO CASINeSTEP 1706 

IF THe ITEM IS UNDEFINEV ANDO EQUIVALENCED T 


UND Secncestectesecteosetsavcsseseccceece UEFX 
HAPi econ egtoeteet)O 
3 
O(occcccestateocccseeses(O 


1620 ' OTHER ITEMS*GO TO Ele 
ASSIGN IT IN UNIQUE STORAGE AND GO TO DEFA.s 


8 152, KEINSTATE TEMP Peweceeergag cesta seseeergneccveseessesetee LCEFXA 
Re ee ee ee ee ee ee : FINALLY IF THE ITEM 1S A HAPPY ARRAY? ASSUME 
WE dAVE BEEN CALLED BY ASM287AQUUST OF CODE 
FOR INDEXING IF NECESSARY e THEN CONVERT [TO A 
SIMPLE VARIABLE AND RECYCLE AT [5le 
IS2eREINSTATE TEMP 
UNLESS PROCESSING A DU STATEMENT. THE TemP 
STORAGE LOCATION IS PUT BACK ON THE LIST OF 
POTENTIAL TEMP STORAGES FOR FURTHER USE, 
GO TO DEFX 
CODING DETAILS’ RA IS THE OPERAND STACK ENTRY 
RL IS THE EXIT FOR A PARAMETER: RX IS THE 
EXIT FOR A DEFINED NON-PARAMETER, 
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1862 $ 
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) 127 ,ASSEMALE 3 Peer ee sete eg enti ee eee anges vesesescetee EXIT 
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Te T25. ASSEMBLER <<. 

THIS SUBROUTINE aSSEMBLES MACHINE LANGUAGE 
INSTRUCTIONS OF AN ALMOST SYMBOLIC NATURE} 
THE OP -cODE 15 THE TRUE OP SEFORE INDEXINGe 
ANO THE ADORESSES ake EITHER AasSOLUTE+ REFER 
TO NEXT INSTRUCTION®OR REFER TC OPERANDS. 

IN PARTICULARS AN ARRAY OPERAND IS ALLUWetDe 
AND THIS MAY CAUSE MANY INSTRUCTIONS TO FE 
GENERATED. IF THE OPERAND IS NOT A LABEL, 
HOWEVER+s THe ASSUMPTION IS MADE THAT IT GOES 
IN 4 ADDRESS AND THAT C ADORESS REFERS TO Nat 

L25eASSEMBLE 205 ON M 
SENU THE M ADDRESS To ASM2e5 FOR ASSEMB_Y- 
(IF IT [5 AN OPERAND WE WILL NEVER COME BaCK 
FROM ASM2eS5eSEE THAT ROUTINE.) 

I2GeASSEM3LE 205 ON C 
SENU ¢€ ADDRESS TO ASMée> FOR ASSEMBLY 

T27eASSEM3BLE 3 
SENU THE COMPILED INSTRUCTION TO ASMS FOR 
OUTPUT AND FINAL TOUCHESe EXIT. 

CODING DETAILS? ADDRESS 9999 MEANS NEXT. ADORESS 
99I] MEANS OPERAND STACK + II. FOR EXAMPLE 
9901 1S THE TOP OF THE OPERAND STACK. ADURES 
SES LESS THAN 9901 ARE ASSOLUTE,. 

AT INPUT RA IS «4 CODED INSTRUCTION*RL Ta ZAIT 
LING. 


(ee [Nowe ) 
3 
3 


le75 2 
( ee ee ey ee ees | ABSteesse geese asa seeeinneeceseesnsetes EXIT 
A 150,.WHAT ADURESS ) 
(eg OF ee es NXT Seema e gp ceet eet este thang eesessetetetye EAIT 
RAND) $ 
t 
legs 3 
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ree eg 0 00 ggg, 8 Oe ay Ot Oe gy Om OE eee OE ew a Oe } 
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EXIT 
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Te 130. ASSEMBLERS 2¢5 AND 2¢8 
ASM2eS DOES HALF THE JOG OF ASN2e GeVe 
ASM2.8 1S USED FOR SIMPLE VARIABLES: TEMP 
STORAGES+ ANDO SUBSCRIPTS. 
IS0ewHAT ADORESS 
IF THE ADDRESS TO BE ASSEMBLED IS ABSULUTE? 
SET CORRESPONDING ReDIGIT ZERO AND EXIT, 
IF THE ADORESS KEFERS TO NEAT INSTRUCTIONS 
TRANSMIT THIS INFORMATION ANDO TEMPORARILY SET 
THE AODRESS ZERQe EXIT. 
OTHERWISE THE ADORESS IS AN OPERANO 
AND FURTHER TESTS ARE NECESSARY. 
ISLeWHAT KINO OF OPERAND 
FETCH THE OPERAND SPECIFIED ANO CHECK TO SE& 
WHAT KIND IT I5. 
FOR A SIMPLE VARIABLE OR TEMP STORAGE: GO TO 
ASM28eSTEP ITSSeAFTER WHICH WE EXIT FROM ASMée 
FOR AN ACCUMULATOR SYMBOL THIS IS A BAD MESS. 
FOR AN INDEX VARTABLE sASSUME WE WERE CALLED 6 
BY aSSEMBLER 1 FOR a STURE OPERATIONse TRANS~ 
FER BACK TO ASML EMITTING THE INSTRUCTIONS 
TO wOAD RGle 
FOR AN ARRAY VARIABLE GU TO STEP [4 
FOR A LABEL +GO TO THE LABEL ASSIGN ROUTINE 
(160) AND THEN EXIT. 
ISSeASSIGN VARIABLE 
GO TO ROUTINE 150 TO GET THE ASSIGNMENT FOR 
THIS SIMPLE VARIABLE. 
IF IT IS NOT A PARAMETER*GO TO STEP 142 
IF IT IS A CONSTANT. WE GET TO STEP I3, 
OTHERWISE IT'S A PARAMETER. 
IS6ceCHECK OP CODE 
FOR 4 SIMPLE VAKIABLE FPARAMETERs we CHOUSE. 
ONE OF THREE SUGROUTINES IN THE OSJECT CODE se 
DEPENDING WHETHER THE OF IS TO bE LiL UDAs 
SR STL. FOR A STA WE OU ATLe STLe FOR JQTHER 
OPERATIONSe WE UO LoL* OF RL. 
T58.CHECK FOR ZERO 
IF THE CONSTANT IS ZEROtAND ITF THIS Is A 
FERO SUSSCRIPT ON A PARAMETRIC ARRAY GO To 
STEP 146. OTHERWISE FOR A ZERO CONSTANT: ADU 
ONE T9 THE OP CODE AND SET 7 AND C TO NATe 
$0 TO ASM3 ANO THEN EXIT FOR ASM2.6 
139.CHECK FOR IIR 
SEE IF THE OP IS LOA ANU IF [YT CAN BE CHANGED 
INTO LIRt IF 30+ DO THIS AND EAIT. 
FROM ASM2 VIA ASM3,. | 
T4OceASSIGN CONSTANT 
USE THE CASIN ROUTINE (170) OISPLAY 
COMAENT *CONST?, 
T4H20eASSEMALE 35 
GIlVc aPPROPRIATE COMMENT» 
ASM. VIA ASMS, 
144eGET SUBSCRIPT 
IN AS4265 WE HAVE AN ARRAY OPERANDO. 
IF THE SUBSCRIPT IS NOT ALREADY IN REGISTER 
Ae COMPILE CODE TO STORe A IN TEMP IF NECH 
ESSaRYe AND THEN TO LGAD A WITH THE SUSSCRIFT 
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(USING ASM2ZeBe STEP T55)6e 
I65e¢WHAT KINO ARRAY 
(REFER To STEP A24 WHERE THE VARIGUS Cases OF 
ARRAY WERE DEFINED.) HAPPY ARRAYS DO NOT 
COME THROUGH THIS PARTe*SUT WE MUST BRANCH 
3 WaYS FOR THE OTHER TYPES OF ARRAYS? 
SAD, GO TO I47e 
ORDINARYe GO TO [46.6 
PARAMETRIC+GO TO NEAT STEP. 
[46ePARAMETER CODE 
IF CORE MODE IS ONe COMPILE 
ADD IF eLOX RAeLDA PAR* ADD RA RAe 
ELSE COMPILE ADU PAR (OR LoA PAR IF SUBscRIPT 
IS ZERO)+ AUD NAT RAe GO TO [490 
I47e¢SAD CODE 
IF CORE MODE IS ONe COMPILE ADD IF re 
LOX @Ae IIR ORELATIVE? ADD RX RAs 
ELS& COMPILE ADU FUDGE ADD NAT RAo 
GO TO 149, 
I4SeORDINARY CODE 
COMPTLE ADD NXT RA, 
I49e¢COMPILE OP 
NOW COMPILE THE ORIGINAL OP-COODE DESIKED FOR 
THIS ARRAY OPERANDs PLUS 4 IF INDEAING IS 
SPECIFIED. PUT NAME OF ARRAY AS COMMENT, 
CODING DETAILS WILL BE OMITTED SINCE ASm2-5 
AND ASM2e8 ARE ONLY FOR INTERNAL USE SY ASMade 
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160, CHECK LABEL 
(ce oe cre cer egg VS gen ant gy we OO ny Ok ) 
OKs 3 
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2117 8 
( OO ae yO AO Oy ty ne a a an an an ome) 
T61.IN UO LOOP 
( OO Ee Oe a gy SEF TO OD OO ay gy as OS A A a ey Ma OOK Oa ED) 
NOt a 
3 
21241 8 


D BAD Se cecre greet eee she encetecseteesnte eALARM 


» YESSeeeee)9 
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162,ASSIGN 


Bececceetga tees eeeaseseteseevcesenevoetesn EXIT 
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Te 16056 LSW FOR ASSIGNING STATEMENT LABELS, 
THIs ROUTINE HANDLES THe LOGIC FOR LABEL 
ADDRESSES. THE PROBLEMS SOLVED ARE THUSE 
OF FORWARD REFERENCES AND OF POTENTIAL GO TO 
OUT OF DO LOOPS, 

I60.CHECK LABEL 
CHECK THAT THE OPERAND WHICH IS SUPPOSED To 
BE « LABEL IS ACTUALLY A STATEMENT NUMBER, 
IF NOTe GIVE THE BAD LABEL ALARM. 

T6leIN DO LOOP 
IF we ARE IN A DO LOOP GO TO STEP 64 UNLESS 
WE WANT THE ASSOLUTE LOCATION OF THE LadEL 

I62eASSIGN 
IF HE LABEL IS UNDEFINEDe PICK LOCATION, 
DEFINE ITe AND EXIT. IF THE LABEL IS TEMPO= 
RARILY UNDEFINED (SEE BELOW) +50 STEP 162 ON 
THE AUXILIARY WORD, IF THE LABEL IS ALREADY 
DEFINEDse SIMPLY EXIT, 

T6O4eTEMP ASSIGN 
IN 00 LOOP (AS UPPOSEL TO DONT LOOP) WE MAKE 
A TEMPO-A-Y ASSaUGNMENT FOR THE LOCATION TO GO 
TOeWHICH STORES RS] BEFURE GOING TO THE 
ACTUAL LOCATIONe THE EXTRA INFORMATION 1S 
KEPT IN LLISTe IN THE FORM 
SYMSOL. TABLE ENTRY LLLLE§ SIAMAAKXXK 

AAAAt O2TTTT 

AAAA41i: XSSSSSLLLL 
WHERE XSSSSS IS THE OLD SYMBOL TASLE ENTRY 
TTTT IS THE TEMPORARY ASSIGNMENT. 
IN THIS STEPeWE CREATE THE LLIST ENTRY IF 
NONE 4AS BEEN MADE YET FOR THIS LABEL. OTHER@ 
WISe WE USE THE TEMPORARY ADORESS,. ALSO IF 
THE LABEL HAD NO PERMANENT sQDORESS and THE 
LABEL HaS NOW OCCURRED IN COLS 1=Se We SET 
THE PERMANENT AOORESS EQUAL TO THE TEMPORARY 
ADDRESS. EXIT. 

CODING UFTAILS! 

ENTRANCE LSW IS USED FORK THE 8RANCH ON QO 
LOOP. ENTRANCE LSWOF IS USED FOR GETTING 
ABSULUT: LOCATIONS AS WITH A FORMAT OR 
ASSIGN STTATEMENT. RL IS THE EXIT LINE. 
OUTPUT 18 Og@AAAOD000 IN REGISTER Ao 


(“<= [Now= ) 
8 
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Ie 76, CASIN ASSIGNING CUNSTANTS. 
T7Oe¢ALREADY ASSIGNEY 
IF THE CONSTANT HAS ALREADY SEEN ASSIGNED» 


2159 1 XUTPUT THE ASSIGNMENT. EXIT. 
( eee mete me we mn I7LeP CK UNIQUE 
( I7U,ALREADY AssSIGNEV D VESteccccsccerecccceeetecvccsetscseetes EXIT PICK THE NEAT LOCATION IN UNIQUE 5TORAGe FOR 
(re cg a an ty es To es oh SD THIS CONSTANT 
NO8 : I72eCOMPILE CONSTANT 
ee : QUTPUT THE CONSTANT OUT“OF=sEQUENCE USING ASS 
2165 : EMBLER 4(190)e EXIT. 
RS ae ee ee ee CODING DETAILSIRX IS EXIT LINE? ROL IS SYMBUL 
‘ I71.PICK UNIQUE ’ TABLE REFERENCE. OUTPUT IS OLAAAAOOCO IN RL. 


my OW 8 8D gy Tt OD tn cay OR SO care gy OE A ee ae cay 


2165 t 
© OD OE 8 OF ae ae gy GH OE OF OR OP gg OE Oh ay, Os EE oe a 0 OE Oh ey, ® 
3 172 eCOMPILE CONSTANT Peer ee edge eeeeOtesesetetgneseceeecvseetege EXIT 


OO OE ae Oe gy HE OP ayy egy gn WN an ee hs oe 
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Te Ile ASSEMBLR 1 
THIs IS A MACRO-ASSEMELK 
WHICH IS GIVEN 4 LIST OF TwO<DIGIT INSTRUC= 


€216 : TION NUMBERS, THESE NUMBERS 4RE EITHER 
Ne ee ee REFERENCES To A LJ ST OF STANUO ARV INSTRUCTIONS 
I Tle CHECK SPECIAL CASES tecccncceg cc ceeteereseettegescecscsesesee LUOP WHICH ARE PROCESSED RY ASSEMSLER 2: OK THEY A 


e Ob AP TR OS OR one are yp OO OE OE a OE ay 28d ae cm OU en OD gy Oh Oh OD OD 


ARE REFERENCES TO PSEUDO-INSTRUCTIONS NUMYER 
T2 THRU 1236 THE PSEUDU-INSTRUCTIONS ARE 
GIVEN HER IN THIS SECTION. THE PURPOSE OF 


251 ASM1 IS TO STEP THROUGH ALL 2=DIGIT 
ge OW aa a gay 1 POF 100 agg GO en Oni EN we a Oa Oe CODES. AS AN INTERPRETIVE ROUTINE e 
38. 14, CHECK SUBSCRIPT Semmes eg ego e OOO eee ase ggeeeesesesesteee LUOP *LOUP® REPRESENTS THE PLACE TO RETURN TU 


e te EP AF OS NF eee ce cay TP OD OD ON ED cas Nh ay gy O08 td EE sete cay, Mit Gh CD OE ag e 


STEP TO THE NEXT 2=prGIT CODE, 
Ile CHECK SPECIAL CaSES 
Tiel2eAND I3 ARE USED TU PROVIDE SLIGHTLY 


2244 BETTER CODE FOR CERTAIN SINARY OPERATORS 
{SRE TSS Sean eles See eae a OR FOR [F-STATEMENTS WITH LASELS EQUAL ®Y 
8 IS. CLEAR ACC Peeeeee erg eg eee ensseOtegeecesssteseees LUOP CHANGING THE ORDER OF OPERATION, LOOP, 


® ee CRN SED OP 0 cat ee ay SE ie TP re OE cay OE ay Gn GO OE OO OD ae en EN ON OE ge e 


TYe CHECK SUSSCRIPT 
WHEN A BINARY OPERATION BETWEEN TWO ARRAY 
VARIABLES ITS USEDe A TEST IS MADE HERE TO 


2246 SEE WHETHER EITHER SUBSCRIPT IS ALREAVY IN 
OO ee agg OY ay Oe Oa es OD ca OO Hy THE ACCUMULATOR: FOR EFFICIENCY. LOOP, 
3 loe SET ACC AVAIL Leeeeeeesee sg eethOeseseeetgegcceeeegseseses LOOP I>e CLEAR ACC 


e (Ap Ah WANE NO ND cane On cae GD ED IR IN ca, AO OY eae ap, WP ee OE om ee ee a a 


IF THE ACCUMULATOR IN THE OBJECT PROGKAN 
IS IN USEe COMPILE THE INSTRUCTION 
‘STA TEMP? LOOP. 


£452 Tée SET ACC AVAIL 
(es I Em) =—ONOS aebee geese ensseseetesneeeeesesseeses EXIT THE ACCUMULATOR IS SET AVAILA@LEe SINCE THE 
{ 17e TRACE ) PREVIOUSLY COMPUTED RESULT IS TO BE USEU 
( me enn mmmmmmmmn) «VE Sie ee cece eet eons ereetensesesaseveccsoege LUOF NEXT, LOOP. 
I7e TRACE 
IF TRACE MODE IS NOT ON*e EXIT FROM ASMIL. 
4265 OTHERWISE PREPARE THE INSTRUCTION LOX NAME 


s Se HOE CA OR ny Cam gy, Tat AE OD gen OOM agg, OE ce ee cen See OO ce eee ans GE ee TT ey, e 


PREPARATORY TO TRACING. LOOP. 
130 OP y2 
FITHFR OP Ve NXT OR 
Lol V2eOP RL IS COMPILED. 
*wE ARE WORKING ON THE GINARY OCPERATION 
Vi OP V2) THEN LOOP. 
Ide Po vi 
NOTa2! Vi OP v2 EQUALS V2 f0 vi 
FITHR PO V1 NAT OR 
Lol Vie PO RL IS COMPILEO. LOOP. 


3 I8e OP v2 PePeeee ene eee eH eg oeeeseMegeceseveerevesese LOOP 


Ae OR 8 OP re Oe ay 0 et OF ng Oe an a em MN e 


£266 
eo eT es ee ae ee ne oe ot eee enone eee ee eee ‘ 


8 1I9e PO vi Semeeee erga esele Oe seeeteMeevencecseseseteos LUOP 
0 re ee ggg OO 08 8 cnn OF oe an oe nk at ny e 


Pia T10¢OP RL 

2294 TilbePO RL 
00 OE os a FS OE ais Oe ee OO SE a at Hog THIs PSEUDO OP IS USEFUL TO SELECT ONE VF THO 
$ 120,0P Rt 8 ALTERNATIVES+ WHICH ARE GIVEN AS PARAHETERS 


e aah SSP EO cee ee cage WE a TF ey EM cage, ae an GE ane EE et ae oe Oh OR ay, 
3 
$ 
2285 $ 


00 Ew OF ce gg BET SO a EE ag TE On op On Mh ae OE nm an OE e 


TO ASM1+ DEPENDING ON WHICH OPERANO IS IN 
RL aNd) WHICH IS IN RAe i.cCoP, 

[i2eOP at NAT 
COMPILE OP KL NAT. LOUP, 

TiSeL IRI NXT SUs 
THIa COMPILES THE LINKAGE TO SUGROUTIME Ss 
INCLUDING THE CONTROL INFORMATION TO GRINS A 
NEW SUSKOUTING IF THE SUBROUTINE HAS NOT 


* 


8 I11,.P0 RL PeeeeeH et see SeFES ee etePeF® gene esetetevetss Loo: 


e CD Ab WOE OOO OED cane RE gg, GO Oth TE ae OE gy OU Oe ee ee Ge ee a an Ht EE ay e 


eee terete ee HK KHER HH REE EERE HE EKER RHEE HR HHH EHR HERHRHEHEHR HR ER HR HEHEHE HE HE 
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* 
* REEW USED BEFORE.s LOOP. 
2291 * Vl4eSTORE [WTO RAL 
ay HONE PF cay OE me ES Oe OD wD ee ca SH Og e * Cc OMP ILE L. I R 1 0000 NXT 9 ‘i I TH TRE DO VAR i ABLE 
& Tig, OP KL NAT ELE EE Ler Pererrrrrererere ys fay te Pe ee ee LOOP + AS COMMENT, LOOP, 
9 AR en eee * [15eATL CONDITIONALLY 
* COMPILE ATL 90000 NAT UNLESS THE PRECEVING 
Olaser ieee ecvcrcetwudancie “ INSTRUCTION IN SEQUENCE WAS AN LIR3 (IN WHICH 
2295 t t * CASE THE ANSWER IS ALREADY IN Rid. LOOP. 
Fe eg 8 yy ne t ae 1i6e SHIFT 
2 113, LIRS NAT Sus boc oa 4a bu ewe taweui es eeadeweasascesene LOOP Me Ilg AND 117 ARE USED FOR SHIFT COMMANUS 
Oe 000 agg WH OF OEE ay, BE OO Oe an ON an HO On om 08 UE oh ae 2 * WHEW COMPILING CODE TO MULT IPLY BY POWERS 
2 * OF 106 LOOP. 
| : #  I18eUNARY OPERATOR 
2512 H * DEPENDING ON THe UNARY OPERATOR: Tre 
SO ay SHE FO at a OO Hw r * SUBROUTINE REFERENCE IS COMPILED USING 15.6 
3 T14,STORE INTO RB Pereerserengtaetencasesetzgncscesegeesseses LOOP x 119040 TO 3Fe2! 
0 Oe Meme BONS ewe wee : * USED FOR MAKING FORWARD REFERENCES aT 
t * THE 2EGINNING OF DO LOOPS ANDO IN [NFUT~ 
3 * OUTPUT WISTS. LOOP. 
esis ; * I200TGR OF 3F 
0 Oa gy GAO OO OD gy OO cy cs OO le OOD wD OH hae 2 # THIs IS FOR THE TRANSFEK INSTRUCTION FOR 
8 115,ATL CONDITIONALLY Feeeeeseerega eter gegeesetgeeaseccgvecetee LOOP * EXITING FROM 30 LOOPS. LOOP , 
a a gg HE OO aay Oh we ay a HE CD Eg 4 7 IZleN INEF DO 
: * THIS IS SIMPLY USED, TO MARK THIS AS A OU 
2 a RATHER THAN A DON OP. 
e525 ? * T22eSur iF 
e SO ee ay SHY OP Ct A ay am nh PD a Lh SH e t * U SEU AT BEG I NWI nG OF FuHcT ION OR SUBRVUT In€ e 
a Tilo .SHIFT Peeeece een nl aeeseeeevetetezocunveserevetge LOOP LOOP, 
e A A A NE OE en Raggy OO EE TP Ce EE ogy HO OO es enn WOE AD cay an tt AEN ee ED a, e t ™ 
$ & 
$ * 
2527 : ¥ 
OO OO a Oe ce a ggg SO OO MP ay DO a, GE AEN PS OD OO a HD HH ee @ t * 
8 LIB UNARY OPERATOR Peoeeseeeenge OD * x 
Oe gy SH A OH CO ae Oy ee ED OE CRD DAF OO * 
* 
* 
2I36 * 
e EE YO ae ONO gy DP OD yy GON em ay SS DOD OD Ca aE A EE cay * 
3 119,.GO TO 3Fea23 Teo eee See eeSe Ses esselOXgnveceveevesesese LOOP « 
tee 00 ggg ED HON OE cy Hh 0 gy cam Sn tO OD a A Th a, e * 
ae 
* 
e344 xk 
On gg, OD OE he OO cay OH OP gy an ee a OY dE ON ae ¥ 
8 IZ0.TGR OF SF Bee ee eee regen eee eseseseigencnvesecesceoge LUOP 
o 0 ER EP OO aay GO OY A SO ay SO SOD ay Wh ED 9 te a Sle PN ID Tay, og * 
* 
* 
2555 . 
0 00 OP cae Oe yg OF GP nn OO gy WO ele aes ne UE On ON Som gs 9d SO e * 
3 T2leNINEF 00 : * 
FSO OO Oe Oe ey OF say SS a A Dy * 
t * 
| 
3 * 
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$ * 
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Oe 0 08 OF ee gy 8 ED OY Ok OO ay OE Oe gy, OD Ch OO ee a DO ee 


- l22 , BUF 1F Peccereetae eset eOenesetetgesantesesecsosee LUOP 


e eb SED ED AD ED Caney COE gay, Gi HE HNP OE NS aay GEN ON ay cy HED OD CD en ate GE SD OT ane e 


*# eee Hee HE HE FT 
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2452 : 
(ee ag a a On ae, ee cn oe a as eae th ad ) BIN ta cece geese tec eset et gnesceseesesetes G7 
4 Sle MINUS SIGN ) 
( er ce cc ca a ae Oa ey wR On om OO) UNE eotes gece tae eeee eg neesseneecsetes§ 420 
2456 
: (non a Sy av ew a a ene ct eu) BIN tececc cect tar eesee reser eeeerseseres &7 
{ B3-e PLUS SIGN, ) 
(Sarees eee mem UNF: 6 eee ein.e ee ee 66565 060 56k 00s sha ee eee Gl 
24635 
( Pee me ere tase memsewamee) IF 3 ee200)0 
( B4. SUBTRACTION OP ) t 
CPSs SS See a te Se eee) SUB tecace,teceeset0 
2 t 
, t t 
2481 t t 
© 0 ce agg OF ST sayy SO ce sy ED ED eS Oe OE OE Ne t ‘ 
. Boe NEGATION OP Fomor eeer ee gtaeteneesetetgeeeseseesesesesn § ld 


OE 8 ay OH EO gg OE EO an SEE EOP 8 A OD Mh e t £ 


t f 
Ol eecvccsetetecccvesteggtastege(O 
2454 g t 
ee gg He Oe eg OS ay CeO ee FLE Xe coc e closet ensees ht gegeneeeenseeeee 0 ALARM 
( B&e ADDITION OF ) FLFL ce weeeetoestesed) OD 
Ce ee ee ee) FXF XX. eee~es t eetecee lees ®ee 10 


alu 


ARR eoeccnteeteseslevetgeelsecegtsestes 
: $ 8 
: : $ 
e533 ‘ : ' 
Se ne ee ae ee nee ee ee ee eee ¢ 2 g 
8 BL) ,ASTERISK Pere re re Pere oe ee eee ee eee ee ee re ee ee GY 
: : $ 
? : z 
2937 : H $ 
( A ne Sa ag, HO EO ay Oh ey ea EON OE ED cae oD wen SHO a ) FLELe Serer rere ese ’ 
: Biz eMULTIPLY ) FLE Ke seventies teessrsteteeet seceenteve ee eo ALARM 
( A ON me 1 sayy HO SD a ayy WL WD pn Si AE eae eam HS Hh wT FXFX. estes ti ebeean Vv : 
8 3 $ 
? $ $ 
2547 : : : 
| 815,LEFT PARENTHESI 5 FemeP eee ee gteeseSgeeleeeHegaelesevatevetee a2 
OO a gy SO eM ca Peg SAE Oe ce ay SA me SE ms te wt I CE EN ay ‘ t ' e 
H g t 
: $ g 
€555 t ; , 
( ace ge ee ae ete ew ee es a ee FLFrXeetens feeteass feeeteeas : ©0000e00000¢¢ 8 ALARM 
( 8i8.OIVISION ) : t t 


{ ee 0 ag FG agg SOD ey eh HOEY Ol aD ee en co en OTH 8 Cetees Leese on eV 2 
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$ 3 8 
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etal aOR ani ictal aah eames, nance § akties cieeineleeac, cient anal, AA i 
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L eeeee tee ee ee eee eH HR ER He RHE ERR E ERE HE HRHEKRER KRHA HE RH EHR HE HH HR EF 


Be ARITHMETIC OPERATORS 
THIs SECTION CONTAINS THE GENERATORS FOR 
ARITHMETIC OPERATORS, ENTERED FROM STEP Go 
OR FROM STEP Glue AN QUO NUMSERED STEP HERE 
INDICATES AN ENTRY FROM STEP G4 (WHEN syMBOL 
IS FIRST SENSED) AND AN EVEN NUMBEREO STEP 
IN THIS SECTION INDICATES AN ENTRY FROM 
G10 ¢ OFF THE OPERATOR STACK ). 
Ble MINUS SIGN 
CHECK IF THE PRECEDING ITEM waS AN OPERAND OR 
RIGHT PARENTMESIS. IF SUrt A SINARY MINUS 
OPERATOR IS SUBSTITUTED AND WE GO TO STEP G7. 
If NOT, A UNARY MINUS OPERATOR IS SUBSTITUTED 
AND WE GO TO STEP G206 
PLUS SIGNe 
CHECK AS IN STEP 81 FOR UNARY OR BINARY, 
ON BINARY PLUS?+CHANGE TO THE SINARY AUD 
OPERATOR AND GO TO STEP G7. 
A UNARY PLUS IS IGNOREDe GO 
SUBTRACTION OP 
CHECK IF THE OPERATOR IN OHOLOD IS A RIGHT 
PARENTHESIS ANO IF THE TOP OF THE OPEKATOR 
STACK IS LEFT PARENTHESIS AFTER AN IFs IN 
THIS CASE ANO IF THE SIGNS OF THE TOP Tad 
OPERANDS ARE EQUAL>+ SUBTRACTION IS NOT 
CARRIED OUTe THE IF OPERATOR 1S REMOVED | 
FROM THE STACK AND WE GO TO STEP Be7e. 
OTHERWISE NEGATE THE TOP OPERANO ANO 
CHANGE TO BINARY PLUS® STEP She 
NEGATION OP 
CHANGE SIGN OF TOP OPERAND,. EXIT 
ADDITION OP 
CHECK TYPES OF OPERANDS. 
GlVe aN ERROR ALARM, 
IF GOTH ARE FLOATING POINT+#GO TO iuGbe 
IF FIXED POINT+s CHECK IF WE ARE ADDING A 
CONSTANT IN AN sRRAY SUSSCRIPTe IF NOT, 
GO TO B89. HOWEVER IF WE ARE aDODING vu + V 
THE ADDITION IS SUPPRESSED, 
IN THE aRRAY SUBSCRIPT CASE» RECORD IF THE 
CONSTANT IS GREATER THAN #1. MULTIPLY THE 
CONSTANT SY THE APPROPRIATE OIMENSION 
AND 400 THIS TO THE BASE. EXIT TO Glo. 
BLILASTERISK 
CHECK FOR SECOND. ASTERISK ANO CHANGE ITO A 
MULTIPLY OR POXER OPERATOR: GO TO G7e 
SL2eMULTIPLY 
IF FLOAT“FLOATe GO TO 890. 


Ade 


Td Gl, 
Bue 


B60 
TO Glo, 
S88 


IF THEY ARE MIXED 


IF MIXEc TYPE. GIVE ERROR ALARA, 
IF FIX@FIXe SET Oey FQUAL TO Oo. IN OTHEK 
CASS: WE MAY CHECK FOR POSSIAILITY OF 


ADD 24 AND/OR SHIFT COMMNDS TO IMPLEMENT 

MULTIPLICATIONe ELSE GO TO 590.6 . 
BIS*LEF PARENTHESIS 

PUT A LEFT PARENTHESIS OPERATOR ON THt. sTACKe 

STEP G20. WHEN IT COMES OFF THE STACK IT WILL 

NECESSARILY BE FORCED OFF BY ITS MATCHING 


etn, mt ee en ei emt 
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RIGHT PARENTMESIS AND IN THIS CASE 


£565 | t $ 3 WE wILL SIMPLY GO To STEP Gl. 
( re ee cer ae og C0 oe Ot a ay we OO em ee CH am FXFLecsccstestoanetevetecetsseeccenets cALARM BiBeDIVISION 
{ Bey ,EXPONENTIATION ) MHZ Beene etoertecteatesereoetecccccsesetet J1d GIVE ERROR ALARM IF M1IXt&0 TYPE, OTHERWI 3E 
( ete oe ce ag ne 0 ae Oy oy a ee He OTHbeccacstoetocesY t GO TO B9Oe 
t : 3 S20«¢E XPONENTIATION 
ee ¢ 3 g GIVE ERROR ALARM IF FIX**FLOAT 
en72 . ¢ 3 t IF RAISING TO THE SECOND POWER+ GO TO THE 
Carer t ee nner nat meet enna nenemns t : ‘ UNARY SQUARING OPERATOR@STEP UlU. 
& 822, AND+0R Teoccceasteggtovtenentcseeecey OTHERWISE GO TO B90, 
© OP OOO ay AD OP OE OO ay SE ce YS SO OD ae OO OP Oe ? t g R22 e AND ® OR 
t ’ FOR BOOLEAN AND ?OR WE S&T THE TYPE OF THE 
: 3 ] RESULT TO UNSPECIFIED? THEN GO TO 8696 
ere | : : S25eWORD IF 
OO ay Ot Os OO ye ON tH Hy t t CHECK THAT A LEFT PARENTHESIS FOLLOWS*ELSe 
rY Be2e5,WORU IF TPeoeewee etre sgteostecscalacetgcosenesegveoseses§ w2d GIlVe AN ERROR ALARM, PUT A SPECIAL JF-LEFT= 


B260 IF = EF T=PAREN 


AT THIS POINT WE HVE PRUCESSED THE EXPRESSION 


€560 IN AN IF-STATEMENT ANO MUST COMPARE IT 
Oe cy OH OO ay OD a Oe OO Os OO eg AGAINST ZERO e THEREFORE THE CONSTANT ZERU IS 
8 B26, IF “LEFF T=FPAREN 2 PUT ON TOP OF THE OPERAND STACK. 


e A CD 8 HF OP cate CH gay AF OE EN ah EE cay OE mn cry cs HE ee OE Can UD Hh ETE en UD ay, e 


3 
Olaccevccetetevccesetee( 


25385 $ 
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’ B27 eFINISH IF=STATEMENT 3 eee 


e ah CA A Oe OP ee CO agg, OP Mit SE at GON ey ON Ce cy in OR as GE ee ee A s 


Oleeevecceteteoccccestee gener enesivovsetas(O 


B2TeFINIGH IF<-STATEMENT 
SET UP IF MODEse THEN PROCESS THE STATtMENT 
NUMGERS. CHECK THAT THERE ARE EXACTLY THREE + 
THEN CHOOSE THE REST CODING SEGVENCE MASED 
ae 


2 
$ 
t 
$ 
$e 
t 
t 
t 
t 
t 
e 
¢ 
t 
8) 


ON EQUALITIES BETWEEN THESE > 
BS9eGENERATE MACHINE OP 

GENERATE CODING FOR THE MACHINE OPS 

ADD@SUBtERS»s OR BUF e USING ASSEMBLER 

1 (ROUTINE T)e AND USING ONE OF 16 TABLE 
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mses ; ; ENTRIES DEPENDING ON WHETHER THE OPERANDS 
a ay a OO ay a ON a ED Og $ ARE O SIMPLE VaRIAGLESe ETCe 
8 BBO GENERATE MACHINE OP Seeccceargnccsetsareteretesccsseseteseses ld 1 IN THE ACCUMULATOR 
0 a ggg 8 OE OO ogy 0 aa gn CO on we OE te ee e $ ? INDE x R E G I STER 1 


| 
Dleetecrecteteocceseeteagesetege(l 


3 ARRAY VARTABLES 
EXIT TO GLO. 


2645 ' B90eGENERATE LIBRARY REF 
Gr ee ee ere ee ee ee ee ee . GENERATE A REFERENCE TO A BINARY LIBRARY 
i BIUeGENERATE LIGRARY REF teccccc et ca gece ees esse etenseeeeeeetesceee auld SUBROUTINEe THERE ARE & CASES OEPENDING 


ON wHE THER EITHER OPERAND IS NEGATEDs AND 
DEPENDING WHICH OPERAND WAS MOST CONVENIENT 

TO PLACE IN REGISTER Le. THESE CASES Are 
SELECTED 3Y REFERENCING A TABLE ENTRY 

AS IN STEP 689 AND GOING TO ASSEMBLER 1 

(ROUTINE [)e EXIT To G10. 


QOS NE 8 OO ae gg OS OE og en Me ne on an 8 e 


*eekeke teeter tet t ee ee Ree HERE EHR EERE EERE EERE EEE HE 


Se en Pa PC ol Tay ET PES ee ee ee ee ee eee ae ee 


* 
8 * 
: + 
£656 8 * 
( A OS a say GO LY SO HP ey tO yy TO HO OD HD aD Om as OO am OP } & 
is Ale 15 LEFT PAREN NEXT 7 NOS genccpecetecncccvetcesevecscccesse eS WICH « 
ne cay OS Oy Se cae SOD OD ay Ot eH ay * 
Yess 1 * 
8 * 
2064 ’ 2 
SO OW a 80 ggg HO OF 08 OF ay OE On gg ce OD OE a ta 0s Hy, e * 
3 Age SET ARRAY MODE ~>_ ae 
‘ enh honk tetaoal Lot tt Pt tL YL a * 
z * 
; t * 
é072 3 * 
OF a gy 8 HF 8 ay C8 00 gy Un OA OU es gg * 
$ ASe EMIT «4 O + Pec eee errrrererverrerererceererrerererery Gl * 
9 OF Oe em 0 cay OS OOO ay Se eae aes HE He yO ag * 
* 
* 
2676 * 
OO Fe cae a ayy OO OO cay SY OO a Os HD ee Oe a OD OD ae g * 
3 ALOU.CHECK INDEX. t * 
Oe Oe te ay OY OE aay Oe oy a A OS LO Oy * 
g * 
8 * 
2695 3 % 
gg, HE ag OO ay Ca OP OO On a ant Ot Ee * 
$ ALL. POTENTIAL NEGATIVITY: * 
GOO a te gy OH AH OOF OO aay OE LOD gy IE EE EE Ce gy SOR AEE 9D HOY caey ® * 
$ * 
g * 
27 \44 $ * 
0 ech ggg GOO OM gy TE Or gy a Bhs Hh Om en HO og, ) 4 
8 AlZsADJUST MULTIPLIcR ’ * 
NO 0 gy, AN OEE i OE gg OF Om ay i ED oe On A Ne, e * 
3 * 
t * 
2725 : * 
SO ee a gy EO Nah Oy a A Se a HO OH ay * 
3 AIS.EMIT *N (0 + t * 
OF Oe Oe aay OP OO a gy OO OS as OO gg * 
t * 
$ * 
2759 t * 
ee tanh gg, G8 OO 05g Eh gy, es AE OD e vy 
8 AZUeINOEXING+ NEGATIVITY ¢ * 
eo eg OS tO ag OF te eo TO OM sg * 
$ * 
t * 
2744 $ * 
gy G8 EF gy WO Oe gy se ED OD OH ae, * 
3 A2Z1.CHECK FIXED POINT 3 * 
ee a gg OO 8 OF a OO Op ea HO OD em ese SH EH He e 
| * 
8 * 
8 * 
: * 
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Ae PROCESSING OF ARRAY SUBSCRIPTS | 
WHEN 4 DIMENSIONED VARIABLE I5 SENT FROM THE 
SCANNER, ENTRY 1S MADE TO AL, A COMMA 
SETWEZN SUBSCRIPTS CAUScS ENTRY TO Al1U. 

Ale IS USFT PAREN NEXT 
SCAN NEAT ITEM, IF IT IS NOT A LEFT 
PARENTHESIS¢@G0 TO THE UNDIMENSTIONED ARRAY 

SWTCHe THIS SWITCH IS NORMALLY SET TU THE 
"MISSING LEFT PaRENTHESIS* ALARM WHICH 
INSERTS A LEFT PARENTHESIS INTO THE 
STATEMENT ANO RETURNS HERE 

A2e SET ARRAY MODE 
THE MODE STacK RECEIVES FOUR NEW ENTRIES? 
2 0VO00 ARRAY MODE (AlO FOR COMMA’ 

MISSING RIGHT PAREN FOR $) 
2 9999 BASE CALCULATION 
2 9998 CURRENT PRODUCT OF DIMENSIONS 
2 9997 REFERENCE TO DIMENSION LIST 

A5. EMIT * 0 + 
FOR CONVENIENCE s+ THE CHARACTER ( O + ARE 
INSERTED. THIS LEFT PARENTHESIS IS a SPECIAL 


ONE WHICH SENOS CONTROL TO STEP 420 WHEN 
THE MATCHING RIGHT PARENTHESIS COMES ALONG. 
EXIT TO Gile 

ALOeCHECK INDEXe 
IF THIS IS THE FIRST SUSSCRIPT AND [TS 
CURRENT VALUE IS RB} CODEs INDEKING IS SET 
UP «NO THE SUSSCRIPT IS REPLACED BY ZERO, 
THIs OCCURS ONLY IF THE FIRST SUBSCRIPT I5 
DOVAR & CONSTANT? WHERE THE CONSTANT IS 
GREATER THAN -30+ AND IF WE ARE NOT CuLUING 
A FUNCTIONe 
THE YMPORTANT ASSUMPTION IS 4u0E HARE THAT 
NEITHER UNIQUE NOR COMMON STOR {GE WILL BE 
ASSIGNED TO CORE LOcATIUNS 8000 ~ A025. 
WITH THIS CONVENTIONe THE NUMBER OF SAD 
ARRAYS(SEE SECTION ar4) IS GREATLY REDUCED. 

ALLsPOTENTIAL NEGATIVITY 
IF aNY CONSTANTS GREATER THAN 1 OCCURKED 
NURING THE LAST SUASCHIPT ALONG WITH 
ANYTHING OTHER THAN DOVARs THIS ARRAY I> 
MARKE) AS HAVING 4 POTENTIALLY NEGATIVE 
SUBS“*RIPTe 

AlZeAQUU2T MULTIPLIL® 
IF THERE ARE NO MORE UIMENSIONSe THE EXTRA 
SUBSCRIPT ALARM IS GIVEN. ELS® IT IS 
MULTIPLIED 19 GIVE THE CURRENT PROOUCIT oF 
OIMENSIONSe 

ALIS.EMIT +N ( 0 + 
FOR CONVENIENCE, THE COMMA IS TRANSFORMED 
INTO THE CHARACTERS 4#N(0+ THIS LEFT 
PARENTHESIS IS LIKE A MULTIPLICATION SYMBOL 
ONLY THE CHECK «T STEP All IS MADE FIRST, 

AZ0e INDEXING NEGATIVITY 
WE HAVE NOW SCANNED THE ENTIRE SUBSCRIPT 
OF THE ARRAY. STEPS AlO AND All ARE PERFORMED 
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2747 t 
3 A22.COMPUTE SUBSCRIPT | 
g 
3 
2756 t 
( SO eg OT ay Sy os SE SO OD en BN 
9 AZS EQUIVALENCE DECL. DP YESle eee a cneet ences eOteneneenrenesestesr 
(acer oe ce ce te gy SO A OF ay SY ay eS OE Oe ee we eas ew OD 
NO8 8 
g 
276V t 
( C0 aay 0 TO OOO EO ay OEE OD ay Cas OE Cot eam Ca am WHO a) PAR | eesee »0 
A AZd,WHAT TYPE ARRAY  SADteconcatestese)0 
(0 0h ca gay SO OO gy Os Oe aay On OO ee OF OH OD) HAP Sees cecteetegaaltesetes do 
OROst 2 ¢ t z 
g 2 g | 
<785 3 t : 3 


OO 0 et Oe ggg GH OU FF FE gg 8 OF gy On NE Oh My | t 1 : 


8 425,CoO0e 3SLLLL1000 


Seve ccneteacetostsegeetosergaetoececes IO 


8 00 ggg, GOD OO agg OE OF a en GH Oe Oh ea OH) ee t $ 8 ¢ 
2 3 8 t 
Ol eerecceetetoveceseteegteostoene (0 3 i 
2790 : : : : 
SO OF re me aay OH YO a Oy aw OH Oe oO ey ‘ ? t 
8 A2Z6,COv&e 2868885000 Peoeeseees eee test aeeeseeeteeetscseonevey 
On OO i 0 gg OP SE Oe ag OH ay a OS ae eae OOD ome t g 3 
t t i 
OlCeetececesseteoeasectes (1 § : 
2799 : § $ 
Oe 0 gy TO ay OD ay On EP DO OD ay s g I 
| A2d7.CODE i8BBBePPPP Pesce eO et gag eetOG gee esestegetssesgnsl 
Oe eh maggot ec en CO 4 lt a aN ee 8 8 
g : 
Dleceeeveceretgveess eee eg enedhheensesetes iO $ 
2605 t : 
OO OO eg ene gg, 8 OO 0g, 08 On iggy 0b NEE Oa ON OO gy, e z 
8 AZ’,COLt AS SIMPLE VAR. 8 3 
Oe Oe 0 ae a, CF EO OO ag Fe say oe SH OO ED ED OD OD ey z 
t +4 
O( eee svete cere ne ates sg eeeOteseseteteseeseeces iti 
eb 14 . 2 
0 gg an A ay, a GED a OTe 
$ = AZW_MOVE SUYSCRIPT Bs6'0g £9 0N ie. 0.600 05in pede Venous bese daeeee 


e (ete OR ND OD ORE cents a ca, ee a EO Ome OD aay ON OP ene ete OR eh ay OD ey Oh a ® 
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THEY ARE REDUNDANT UNLESS THE ARRAY IS 
SINGLY SUSSCRIPTED. 
AZleCHECK FIXED POINT 
IF SUBSCRIPT IS FLOATINGse GIVE ERROR ALARM. 
AZ2eCOMPUTE SUBSCRIPT 
ITSELF se PROOUCE CODE TO LOAD 17 WITH TRUE 
SIGN INTO THE ACCUMULATOR, 
AZSeEQUIVALENCE DECL. 
IF we ARE IN AN EQUIVALENCE DECLARATIUN, 
FXIT TO THE EQUIVALENCE ROUTINE £300 
A24eHHAT TYPE ARRAY 
THERE ARE FOUR KINOS OF ARRAYS: ANO ®t VYECIDE 
NOW WHAT KINO THIS [Se 
IF THE ARRAY IS PARAMETRICe GO TO Adc7eo 
CONSTANTS IN THE SUBSCRIPT ARE ADDED TO THE 
BASc.e IF THE SASE HAS THERESY BECOME NEGATIVE 
OR TOO LARGE OR IF THE SUGSCRIPT IS 
POTENTIALLY NEGATIVE. THIS IS CALLED A >AU 
ARRAYs AND WE GO TO Adc6e 
EXAMPLE: AlJ#2) 5 WHERE J MAY SE NEGATIVE 
IF THE SUBSCRIPT IS NOW ZEROe THIS INUI CATES 
THAT IT WAS ALL CONSTANT EXCEPT PERHAPS FOR 
INDEX REGISTER MODIFICATIONe SO GO TO Ad&e 
ELSE IT 15 AN ORDINARY ARRAY. 
A2SeCODE SSLLLLIOOO 
FOR AN ORDINARY ARRAYe THE CODE 3SLLELLIQOU 
IS ofFT UPeWHERE S 1S THE STORAGE TYPE: 
LLL rS THE SASE LOCATIONe AND YF I8 0 OR G 
FOR INDEXINGe TO A29e 
A26eCO0c 2868585000 
FOR A SAD ARRAYeTHE CCDOt 2858885000 I> SET 
UPe WHERE S I5 THE STORAGE TYPE.e 68668 IS 
THE 93456 LOCATION PLUS 30000¢ FiLUS 4OU0U IF 
INDEXINGe TO AdGe 
A27eCODce 18s8BEPPPP 
FOR A PARAMETRIC ARRAY THE CODE iebs8oPrPPr 
IS oT UP» WHERE B8BBBS IS THE SASE LOCATION 
PLUs 300008 @LUS 40000 IF INDEXING? AND 
PPPpP 1S THE LOC«TION OF THE PARAMETERe [O AcS 
A28Be«CODE AS SIMPLE VAR, 
THIs ARKAY IS CHANGED TU LOOK ALMOST LIKE 
A SIMPLE VARIABLE, 
A29eMOVE SUSSCRIPT 
THE STATUS OF THINGS IS CHANGEO TO? 
SAD3 PAR 6 HAPs ORD? 
OPERAND STACK ENTRY 
STAAAADOOO SJTAAAADOOU UTAAAADOVO STAAAAQUUU 
LOCATIONS AAAA ANO AAAA4I15 
eoyvoodccce gvOVUdntCeCC vsOrToOceccC OONOVOUCCCC 
284B32B8s000 13B86B8BPPPP USOTOOOQQVO SSLLLLIVQOO 
LOCATIONS CCCC ANDO CCCCelL3 
SUBSCRIPT SUSSCRIPT OSLLLL ewe SUSSCH IPT 
ZZZZZNNNNN Z2ZZZZNNNNN 2ZZ2ZZNNNWN 2Z2¢ZNNANNN 
WHERS ZZZZZNNNNN IS THE ARRAY NAMEe AND 
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UNARY OPERATORS AND SPECIAL GENERATORS 
COMPARE WITH THE INTRODUCTORY REMARKS Or 
SECTION Be ODD-NUMRERED STEPS INDICATE ENTRY 
FROM Gée EVEN NUMBEREOs FROM G10. 

FQUALS SIGN 

THIS 1S A SWITCH WHICH IS SET IN SEVERAL 
PLACES.IF THIS cQUALS SIGN OCCURS IN «A UO 
STATEMENT¢+GO TO m3, IF IT IS IN AN INPUT~ 
OUTPUT STATEMENT.»GO TO W117, OTHERWISE THIS 
IS a PLAIN OLD EQUALS SIGN+AND WE PUT a 
REPLACEMENT OPERATOR ON THE STACKe G20. 
REPLACEMENT SETUP. 

IN A MULTIPLE ASSIGNMENT STATEMENT WE ENTER 
AT STEP U2 THE FIRST REPLACEMENT OPERATOR 
STEP U4 SUCCEEDING TIMES. CHECK TYPES+ ANU 
IF OIFFERENCE IS PRESENT PUT OUT THE CODE TO 
FIX OR FLOATs IF THE TYPES ARE THE SAME, 
DECIDE WHETHER TO PUT THE RIGHT=HAND SIDE IN 
REGISTER A OR NOTe REGISTER t IS SELECTED IF 
THERE IS A MULTIPLE ASSIGNMENT STATEMENT?s OR 
IF THE LEFT-HAND PART IS NOT A SIMPLE VaARIASL 
OR IF TRACE MODE IS ON, 

THE CODING TO PUT THF RIGHT=HAND SIDE: wITH 
TRUE SIGNe INTO THE SELECTED RIGISTER: IS 
ACCOMPLISHED 3Y SELECTING A 

TABLE ENTRY AND ACTIVATING ASMI(ROUTINE I). 
REPLACEMENT OPERATOR 

PUT OUT CODING TO STORE 4 OR tL IN THE 
APPROPRIATE LOCATION ANU POSSI8LY TO 

CAUSE TRACING*USING ASSEMBLER L(ROUTINE I). 
REMOVE OPERAND FROM STACKe EXIT TO Glv, 


ULOeUNARY OPERATORS 


Uilde 


Ulse 


IN THE CASE OF FIXcEXPeSINeCOSeTANCATANoLiVe 
SORTeCHECK THAT THE ARGUMENT JS FLOATING 
POINT. SQUARINGe THE *NOT? OPERATOR: AND 
FLOAT PLUS THE ONES MENTIONED EARLIER ARE 
THAN CALLED FROM THE LISRARY SUBROUTINES, 
USING A TABLE ENTRY AND ACTIVATING ASSEMBLER 
le THERE ARE TWO CASES+OEPENDING WHETHER THE 
ARGUMENT IS NEGATED OR NOT, IN THE CASE OF 
ABS, A SPECTAL TABLE ENTRY FOR AN OPEN 
SUSROUTINE IS USED, 
END OF STATEMENT 
AY THE END OF MOST STATEMENTS WE CHECK THAT 
THE SPERATOR AND OPERANOD STACKS ARE EMPTY>+ 
Er. S. SIVE THE ERROR *mISSING RIGHT PARENTHE- 
SiS* OR *MISSING OPERAND® OR "EXTRA OPERAND te 
WORD *GOF 
SET L1BEL CONTEXT ONe ANO SCAN THE NEAT ITEM 
{ROUTIN. S)e THE WORN TO IS IGNOREO SY 
FORTRAN, IF THE NEXT ITeM IS a LABEL*e PUT IT 
IN a BLANK ADDRESS OF THE PRECEDING 
INSTRUCTION OR ELSE CREATE A UMP INSTRUCTIONG 
THEN 50 TO Gl. 
IF jHe NEXT ITEM IS A VARIJABLE+ COMPILE CODE 
To aTORE RBL IF WE ARE IN A 30 LOOPe THEN 
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Co0e TO JUMP To THE VARIABLE ITSELF. U2} 
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S080 : FINALLY IF IT IS A LEFT PARENTHESIS» 
Be a ne eee ee WE oFT UP GO MODE. COMPILE EACH LABEL 
3 UZretOlnEnslone Peeee eS Sh ane eens Seg eessOSMgneereseetoeetes Gi OUT OF SEQUENCE, THEN WHEN THE KIGHT 
Oe Oo og OO a Fe a wg PARENTHESIS COMES ALONG WE RETURN TO 61 TO 
PROCESS THE EXPRESSION. 
ULGeEND COMPUTED GO. 
9305 COMPILE CODE TO GET THE EXPRESSION WITH 
ee tn oe rie eee Te en TRUc SIGN IS REGISTER At THEN 
: Ué7o *COMMON? (ee ee ADD NXT RAs JMP TO THE TABLE. 
© 0 Oar 0 ae Oe agg 8 HO gg WN me ean oo SO sD OD See oes OE Oe, UlLTewORD * ASSIGNS 
: SET LABEL CONTEXTeAND PLACE THE ASSIGN 
t OPERATOR ON THE STACKe THE WORD *TO! 
diSk t IS IGNORED 8Y FORTRANe 
3 U29 -CONTROL WORDS Feeee ee HS eg eeeSFS ee esHSOFggeeeeseetotetee Gl CrEaTE A CONSTANT FOR THE ABSOLUTE LOCATION 
§ Pe en REO Ne Cae ewe mee g OF THE LABEL (UnE 162)+ THEN INTERCHANGE 
OER.NOS AND TRE .T ANALOGOUS TO REPLACEMENT 
AT STEP Ue 
U2ZLe* DIMENSION? 


WHEN 4 DIMENSION DECLARATION APPEARS TH: REST 
OF THE COMPILER IS RIGGED UP TO HaNLLE THIS 
STATEMENT PROPERLY BY STTING UP DIMENSION 
MODE, WHEN A NAME COMES ALONG, A SECOND MODE 
IS s&€T UPe AND THIS MODE CREATES THE 
TABLE ENTRIES FOR AN ARAAY VAR TABLE. 
AT THE ENDe EXIT TO Gl. NO STQRAGE 
ASSIGNMENTS ARE MADE YETe THEY ARE MADE 
WHEN THE ARRAY IS FIRST REFERENCED} 

U27e* COMMON! 
SET UP COMMON MODEs+ MARK EACH IDENTIFIEK 
THAT COMES ALONG AS COMMON AND ALLOCATE 
THE STORAGE FOR IT, 

U2Z9eCONTROL WORDS 
THE WORDS NOreTRACEeLISTeCORE*CARDS REALLY 
NEVER GET PAST THE SCANNER» THEY ARE 
DETECTED AT STEP S10, THEY MERELY SET 
INTERNAL SWITCHES INSIOE THE COMPILER} 
AND RUN OFF TO Gle 
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my A OR BEN A OD ete TD aay HO OS EP Gh ID gy GA OR ca Gee NORD OEE COD ame San ERE EOD UD wy e 
3 D030 ZERO SCOMMA COUNT 
a gn OO 8 0g hg, MBE ee AEN eD e 
9170 
Qe Oe 0 OE eh Oe gg, WE A ap 08 gy Oh oh ae Os Oe OE en et Oe hn, e 
8 DS. CHECK COMMAS 3 
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‘8 06. STORE EAP IN TEMP 3 
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4185 : 
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Oe DO LOOP CONTROL 
WHEN THE WORD DU OR THROUGH IS SENSED:s eNTRY 
IS 4ADE TO STEP O1, 

Dle SET UP FOR LABEL 
00 407E 15 SET UP, A SWITCH I5 SET SO THaT 
WHEN THe NEXT EQUAL SIGN OCCURSe*CONTRUL GOES 
TO STEP O34 SEMI[=-LABEL CONTEXT IS SET UP 
SO THaT THE LAdelL FOLLOWING COMES IN AS A 
CONSTANT+YET STEP C5 GOcS IMMEDNIATELY Tu C64 
IN THE CONSTANT SCANNERe GO TO Ole 

O3e ZERY COMMA COUNT 
THE FACT THAT A COMMA MAY HAVE OCCURRED 
SEFURE THE CONTROLLED VARIABLE IS FORGOTTEN’ 
AT THE END OF THIS STATEMENT* CONTROL WILL 
PASs TO STEP DSe GO TO ule 

O5e CHECK COMMAS 
IF WESS THAN TWO COMMAS HAVE OCCURRED? 
INSERT Felt IN THE PSEUDOCODE. 

Oo« STORE EXP IN TEMP 
COMPILE CODE TO STORE REGISTER a IF THERE I5 
A COMPUTED RESULT THEREe SET a SWITCH Sy THaT 
THE TEMP STORAGES USED TO HOLD COMPUTED 
RESULTS ARE MADE PERMANENT STORAGES 
(SEE STEP 152). 

70 DO OR DONT 
THIS IS A DONT LOOP UNLESS: 
4) THE WORD THROUGH WAS NOT USEU 
8) NO OO IS IN PROGRESS 
C) sOTH THE STARTING VALVE AND INCREMENT 
ARE CONSTANTS. 
IN CASE OF A DONT LOOP+GO TO STEP 010. 

Dse BEGIN DOO 
SET THINGS UP FOR PUTTING VAXIABLE IN AN 
INDEX REGISTER. SET SWITCH FOR SPECIAL 
HANOLING OF LABELS, COMPILE LIR1 N SF 
2 IIR] Me LOL Ve TGR GF. GO To STEP De05 

DLOeL DOA INIT 3F 
COMPILE LOA WITH IN] TIAW VALUE. 

Olle V+ INC 
ARTIFICIALLY INSERT +#V INTO THE PROGRAM: 
THUS RUNNING THROUGH THE ORDINARY ADD 
SENERATOR To CREATE CUDE TO PUT THE SUM OF 
V+ INC IN REGISTER Ae 


ODl2eLOLe TGR 


COMPILE 3 LDL FINe TGR SFe STA V 
D2Oc«eLABcL IN TABLE 
PUT THE LABEL NUMBER, TOGETHER WITH THe PER- 
TINENT ADDRESSES FOR LINKING UP CONTROL 
(9F 023) INTO THE DO STACK, EXIT TO Lid, 
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Fe FUNCTION CALLS 
TRANSFER IS MADE TO STEP Fl IF WE HAVE aN 
UNDIMENSIONED IVLENTIFIER FOLLOWED BY A LEFT 


2258 3 PARENTHESISeNOT OCCURRING IN 4 DIMENSION DEC. 
3 Fle ASSIGN F z IF THIS IS A NEW FUNCTION OCEFING [Te IF IT 18 
OO OE OP Oe arn OO OF OD aay OE Oe cm ae OR OE OD OD ny A CONSTANT OR S IMPLE VAR LABLE ; TREAT Ad 
3 IMPLIED MULTIPLICATION. 
: ‘ F2e SET FUNC MODE 
J2u2 t SET UP FUNCTION MODE+ANU ALSO PUT A SPECIAL 
OO ge ey eee LEFT PARENTHESIS OPERATOR ON THE STACK, 
| F2e SET FUNC MODE Feeee POH eee eet ES eSHHSHEH egg eeseeseteeetes Gl AS WE PASS OVER THE LIST OF PARAMETERD.e 
aaa a aa CODE IS COMPILED TO COMPUTE THEM AND STORE 
THEM IN TEMPe IF THE PARAMETER IS A CONSTANT 
> OR INDEA REGISTER. AS THE RIGHT PARENTHESIS 
J251 CLOSING THE FUNCTION CALL OCCUASe TRANSFER 
8 F4, BEGIN REVERSE PASS 3 FU. BEGIN REVERSE PASS 
EE Le ae te ea Le RN oa BEGIN NOW A RIGHTTO@-LEFT PASS OVER THE 
3 PARAMETERSe RESERVE THE UNIQUE STORAGE FOR 
3 THEde THEN PROCESS EACH PARAMETER IN TURNS 
II12Z : THE TYPES OF COOE PRODUCED ARE! 
© Oy OO oy Oye a He OS Oe FOR SIMPLE VARIABLE PARAMETER=PARAMETER 
8 FSe LIRS Pewee e eee e sg Sethe ees EOF a geeseoesevevevtes Gl IIR AHHH: ERS PARAMe STA LIST 


Oe an OE ey a gy OH OF ae gy OF on ce ch Sn OF ee OP an OO OF ne, e 


AND LIST 1S MARKED AS TEMP STORAGE. 
FOR A LABEL (1-0 SUBROUTINES ONLY) + CODE 
OOo wLLL 0000 (GUT OF SEQUENCE). 
FOR AN ARRAYs JLIR AOt STA LIST 
FOR A SIMPLE VARTABLE OR TEMP STORAGE? 
OO LLLL 0000 (OUT@OF<SEQUENCE), 
FSe LIRS 
AFTER ALL PARAMETERS HAVE BEEN PROCESSED, 
COMPILE THE INSTRUCTION 
LIRS UCLIFUNCT*s ANDO THE 
NEXT INSTRUCTION GOES TU LOCATION U(T). 
THE PARAMETERS HAVE REEN LISTEC IN UCI41) 6 
UCle#2)¢ ETCe 
IF THIS CALL IS NOT IN A&A CALL STATEMENTs TREA 
THE R£&SULT AS A COMPUTED QUANTITY IN 
REGISTER Ae 230 TO Gle 
NOTe: IF A CALL STATEMENT IS GIVEN WITH 
NO PARAMETERS+ NO REFERENCE [TO UNIQUE 
STORAGE 1S MADE. 
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Je O4FO, GLOSE OF DO RANGE. 
AS EACH STATEMENT LaREL IS SCANNED IT Id 
CHECKED AGAINST THE TOP OF THE DO STACK 
TO oFE WHETHER THIS STATEMENT Is THE END OF 
THE NO RANGE. IF IT IS THE NEXT APOSTROPHE 
OPERATOR (END OF STATEMENT) SENOS CONTROL 
TO sTEP DOs 

D406 GO TO 28 
FFFECTIVELY COMPILE GO TO THE INCREMENTaTION 
PHASs AT THE SEGINNING OF THE O00 LOOP CODING? 
AND sET THE NEXT INSTRUCTION LOCATION TU SE 
OF,» THE ADORESS FOR FAHAUSTION OF THE 00. 

941000 OR DONT | 
IF THE LOOP JUST ENDEO WAS A CONT LOOP, 
SKIP TO STEP 050-6 

D42eEMPTY LLIST 
TURN OFF THE VARIOUS INUICATORS WHICH ané 
SET DIFFERENTLY WHILE WE ARE IN A OO LOUP. 
THEN FOR ALL LABELS WHICH WERE GIVEN 
TEMPORARY ASSIGNMENTS: WE HAVE AN LLIoT 
ENTRY ANO WE NOW OUTPUT THE INSTRUCTIONS 
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( AO gg C8 OE ON ay PO aay, ey Ee OD HH Se aE SHY YES Peese e ) 9) STA Vv Pr 

( 05u. ANY MORE ) WHERE V IS THE OO VARAIGLE, T 15 THE fem~ 
ee een ee gg HS ge Oh gy OE ee OD ) NOt CESK eeHeSFS eS eeHeHSteeaetentetesetes a3 PORARY ASSIGNMENT Pp IS THE PERMANENT 


ASSIGNMENTe THE TEMP ASSIGNMENT IS THON 
FORGOTTEN. 

050+ ANY MORE 
IF aNOTHER OO LOOP ENDS ON THIS 
STATEMENT*RETURN TO STEP O40. ELSE 
GO TO Q3- 
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PROCESSING FORMAT STRING 
Xle COMPILE O02 
THE INSTRUCTION G2 MMMM CCCC IS COMPILED 
WHERE MMMM [S THE STARTING LOCATION OF THe 
FORMAT CODE. WITH THYS TRICKe A FORMAT LABEL 
TS wWIKE ANY STATEMENT LAFEL. 
NOW WE TRANSLAT& THE FORMAT INTO A SPECIAL 
PSEUNOCONDEe THIS CODE GENERATES INSTRUCTIONS 
OF THE FORM OP NAN ww OD, CORRESPONDING 
TO FORMAT SPECIFICATION *NNN & wWWe.bDt. 
OPCUONES O-10 CORRESPOND RESPECTIVELY TO 
( )PIEFXAHMZ 
X2e RESET OP «Ne Wed 
CLEAR OPe Ne We AND D TV ZEKO 
XSe NEXT CHARACTER 
GET THE NEXT CHARACTER FROM THE FORMAT UIST. 
IF IT IS SLANKe DO X3 AGAINe 
IF IT 15 A DECIMAL POINTe CYCLE NeWeOD LEFT 1 
AND RETURN TO x3 
IF IT IS NUMERICe SET OC TO 1040 PLUS CHAR X43 
IF [fT IS ALPHABETIC OR SPECIAL CHARACTER: 
LOOK IT UP IN A TABLE TO SEE WHAT TO 00, 
AN <- F I A OR M MEANS GO TO Xu, 
A PL.US OR MINUS MEANS GO TO X5o 
AN xX OR P MEANS GO TO Xve 
A LEFT PARENTHESIS meEANS GO TO ATs 
COMMA SLASH AND RIGHT PARENTHESIS GU TO XbG6 
THE LETTER WH MEANS GO TO X90 
AN APOSTROPHE MEANS we GO TO X11, 
X4e SET OP eCYCLEs 
SET OP TO THE APPROPRIATE NUMEER, 
NeWs AND D LEFT 1. RETURN TO X3, 
XSe SET SIGN INTO W 
SET w To 90 OR 1 
XO«e ASSEMBLE THIS OP 
MOVE 0 TO Ne THEN ASSEMGLE 
OPNANWWWOD INTO THE FORMAT CODE.RETURN TO Xade 
X7,. ASSEMBLE 2 LINES 
“OVE 0 TO N AND ASSEMBLE THEN INSERT A WORD 
OF ZERO: S INTO THE FORMAT CODE. THIS ®OND 
1S JSED AS a SCRATCH PAU BY THE FORMAT 
PROCESSING PACKAGE, RETURN TO Xéae 
XSe ASSEMBLE TWO OPod 
IF DECIMAL POINT HAS NOT APPEAREDe CYCLE 
NeoWeD LEFT le IF PREVIOUS OP 18 WAITING 
ASSEMBLE ITe ANG CLEAR W. IF CURRENT IS NOT 
A CUMMAe ASSEMBLE IT TOO, 
NOTE THAT ON N/ THE COUNT N COMES OUT IN We 
X9e ASSEMBLE H OP 
MOVs 0 TO N AND ASSEMBLE, 
KMLOsINSCRT LITERAL 
SUTPUT 5 CHARACTERS OF THE LITERAL aT A TIME 
UNTIL THE H LITiRAL I> COMPLETED. 
THE ROUTINE FOR H LITERALS IN THE CONSTANT 
“ONDE YSE2 Is JSEN+ WITH ZERO FILL AT THe 
RIGHT. RF TURN TO Xz, 
RLleASSEM3LE 99 OP 
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(PLUS OR MINUS) ,+RETURN TO X50 
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We INPUT-OUTPUT (READ se PUNCH PRINT) 
THIS SECTION IS WITHOUT DOUBT THE CLIMAX OF 
THE COMPILERe AT LEAST 95% OF THE CODING OF 


2578 3 THIa COMPILER PROGRAM CAN BE ACTIVE WHILE 
ree Ge ee PROCESSING A SINGLE 1/0 LIST. 
$ Wie SET TWO OPERANDS EC ESE eererreLererrrerereerererryereriry) Gh Wie SET TWO OPERANDS 
ee eee ee ee pe ee SeT UP TWO OPERANDS» Ont FOR TRE EOITING 
SUBROUTINE AND ONE FOR THE DRIVER SUBROUTINE 
(I-U0 DEVICE). SET UP TO EXPECT A LABEL. 
3995 $0 TO Gle We WILL RETURN TO STEP W2 WHEN 
3 Wee CALL FUNCTION Seveenevevengs) 0 42e CALL FUNCTION 
ee ee ee : USE THE FUNCTION CALL ROUTINE (ROUTING. F) TO 
$ CREATE INITIAL ENTRY TO THE I/0 SUBROUTINE. 
$ THEN SET UP 1/0 MODE. IF AN UNOIMENSIONED 
IOGi ’ ARRAY VARIABLE OCCURS WE WILL GO TO STEP 
8 w5e UNOIM ARRAY Be meeceed geet oeteseneeeetgecessceeveesees§ Wld AT THE END OF THE STATEMENTe w& GO TO STEP 
OF Oe ce a cans HH EP A en EN Oe ay ens HOH OD ay OO a 3 w50.NO# WE GO To THE COMMA ROUTINE +STup wiQ,. 


WSe UNDIM ARRAY 
AN UNOIMENSIONED ARAY A IS CONVERTED INTO 
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(oe cn ce 000 agg Se LE ay ay cae 0 OO a as OD es WU) 3 eoeecesestece 10 USING ROUTINE G10 WHERE w@Iu IS A OUMMY 
( -WlOsSCAN FOR ¢ GCN: ceauuiaahexeateeweeelO VARIASLE AND N IS THE PRODUCT OF THE «ARRAY 


NIMENSIONSe 
WIOeSCAN FOR ( 
SCAN NEXT ITEM (CO-ROUTINE 5S). IF IT 1S THE 
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35019 : t $ END OF THE STATEMENT+GO TO STEP w50. IF IT 13 
Oe re ee eee ee ee eg eee : A LiFY PARENTHESISe GO TO STEP Wi2. 
g WIZe INTERRUPT SEQUENCE tecccccceeedO OTHERWISE INSERT AN IN OR OUT OPERATOR 
Oe Meret gee gre py ee ee ON THE STACK THEN GO TO G2e IN IS STEP Wilde 
OUT 1S STEP W15. 
WIZe INTERRUPT SEQUENCE 
2029 CREATEA BREAK IN THE INSTRUCTION SEQUENCE? 


OO 8 OF nF gg GO TE Ot OP cay, GN ee tate te Ca at Sal Oy gy 


FOR WHICH CODE WILL BE INSERTED LATER. PUT A 
SPECIAL LEFT PARENTHESIS ON THE STACKe THIS 
SPECIAL LEFT PARENTHESIS IS STEP W206 

GO TO STEP W10 AGAIN. 
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$ W15,0UT Sewereeet een geeeeegeeleeetgnvesesensovsevege§ 81V COMPILE LDA Ve LIRS 29UB. GO TO G10. 
SO Oo Oe se agg 000 ON 0 ay Oa ans a OH hae ont HD Oe SUR IS ONE. OF THREE ENTRIES* SEPENOING QIN 
THE TYPE (FLOAT eFIXeUNSPECIFIED) OF V. 
WIi7eEQUALS SIGN 
3059 AN GQUALS SIGN HAS aPPEAREOe SO WE PULL THE 
© A cae tt gy nS A Sy OP i a ayy SPURIOUS IN OR OUT OPERATOR OFF THE STACKe 
$ W17,EQUALS SIGN Seeree sree Ogee sats gee leSeP geen sentetatetes 01 WE NOW COURAGEOQUSLY JUMP INTO THE MIOOLE 
eee ge ae ee eee ee ee ew OF THe THROUGH ROUTINE? STEP Ol. 
W200 (LIST) 
THE RIGHT PARENTHESIS MATCHING A LEFT Has BEE 
J044 ENCOUNTERED. IF AN IMPLIED DQ LOOP OCCURRED 
a a a a aan INSIDE: WE USE PARTS OF ROUTINE 0 TO CREATE 
3 W2U— (LIST) werEerErerreerrererereresarererrrervererere Gi CODING FOR THE OONT LOOP CONTROL. FINALLY 


THE INTcRRUPTIONS FROM STEP ¥i2 ARE ALL 
LINKED TOGETHER PROPERLY. GO TO Gle 
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( Pd. SCAN AHEAD 
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FUNCTION AND SUGROUTINE DECLARATIONS 
COMPILE PREAMSLE 

COMPILE IIRL 90000 BUF Fe LIRI LOVO, 
(AND LOA 9001) ATL YF FUNCTION) 

SET UP CARD 

SET UP THE NAME OF THE FUNCTION INTO THe 
OUTPUT CARDS: INITIALIZE OTHER THINGS LIke 
THE MEANING OF KETURNe A MAIN PROGRAM 

IS BISTINGUISED FROM 4A SUBPROGRA™ 

ONLY 8Y DEFAULT. 

SCAN PARAMETERS 

SCAN UNTIL THE END OF THE STATEMENT? 
COLLECTING ALL PARAMETERS ON THE OPERANY 
STACK. wE GET Tu STEP PS AT THE ENO 

OF THE STATEMENTe 

SCAN AHEAD 

IF THE WEXT ITEM SCANNED IS ANOTHER END OF 
STATEMENT OR OIMENSIONe GO TO Gade 

GENERATE THUNKS 

ELSE WE ASSUME ALL DIMENSIONED PARAMETERS 
HAVE BEEN NAMEDs AND WE COMPILE COUE TO TRANS 
FER FROM THE PARAMETER LIST TO UNIQUE STORAGE 
TEN INSTRUCTIONS FOR NON-DIMENSIONED 
PARAMETERS AND TWO FOR JIMENSIONED ONES, 
THEN OFF TO G2e 
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INITIALIZATION aND TERMINATION 

71 1S ENTERED AT THe BEGINNING OF EACH 
PROGR1iM ANO SUSPROGRAM, ; 

SET UP HEADER TsaSLE 

THE HEADER CARD INFORMATION [5 KEPT IN & 30 
POSITION CIRCULAR TaRLEe IF MORE THAN Su 
TOTAL ITEMS ARE PUT INe A FLAG IS SiT 

SO THAT LOAD-AND<GO OPERATION IS OISALLOWED. 
CLEAR SYMBOL TABLE 

ALL SYMBOLS EXCEPT RESERVED @CROS ARE 

REMOVED FROM THE SYMBOL TABLE. 

INITIALIZE COUNTERS 

VARLOUS THINGS ARE RESET# EeGe SUBROUTINE 
PACKAGE REQUESTSe STORAGE ALLOCATION KEQUESTS 
COUNTERS ARE SET UP TO INDICATE A MAIN 
PROGRAMe THESE WILL BE EFFECTIVE UNLESS 

A FUNCTION OR SUBROUTINE DECLARATION FOLLOWS. 
START COMPILING ®8Y TROTTING FORTH TO 1, 


Z50eEND 1S SENSED 


AN END CARD MEANS WE SIMULATE A RETURN 
STATEMENT (Ieke GO TO EAITI. 


Z510¢PUNCH HEADERS 


PUNCH ANDO PRINT HEADER INFORMATIONS 


Z52eREAD NEXT CARD 


IF NO MORE INPUT CARDS ARE IN THE BLFFER, 
PUNCH OUT SEVERAL BLANK CARDS AND STOP, 

IF THE NEXT CARO IS THE BEGINNING OF PASS2e 
TRANSFER TO THE SECOND PASS UNLESS aN ERROR 
OCCURRED IN THE PRECEDING PROGRAMSe 
OTHERWISE WE GO TO 21 TO PROCESS ANOTHER 
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EQUIVALENCE DECLARATIONS. 

IT 1S ALMOST IMPOSSIRLE TO EXPLAIN HOW THe 
PROCESSING OF EQUIVALENCE DECLARATIONS 

WORKS IN THIS COMPILER. IT DOES SEEM TO 
WORK+ HOWEVERe EQUIVALENCE CLASSES ARE KEPT 
IN CIRCULARLY=LINKED CHAINS. IT IS EASY TO 
MERGE TWO CHAINS INTO ONE. WHEN AN ITEM 

OF a CHAIN IS FIRST REFERENCED AFTER AN 
EQUIVALENCE DECLARATION: WE GO TO Ele FORMATS 
OF THE CHAIN ENTRIES APPEAR IN THE TABLE 

OF FORMATS. 

SEARCH THROUGH CHAIN 

TRAVERSE THE CHAIN ONCE TO SEE HOW MUCH 
UNTQUE STORAGE 15 To BE RESERVED. 

ASSIGN CHAIN 

TRAVERSE THE CHAIN AGAINs ASSIGNING EVERY 
VARIABLE IN THE CHAIN RELATIVE TO THE OTHERS. 
GO TO DEFXe 

"EQUIVALENCE ® 

ON THE EQUIVALENCE DECLARATIONe VARIOUS 
MODES ARE SET UP. AT THE END OF EACH 
EQUIVALENCE+s A CHECK IS MADE TO SEE IF 

ANY OF THE ITEMS WAS PREVICUSLY DEFINED. 

IF SOs THE ENTIRE CHAIN IS THEN DEFINED» 

AS IN STEP Eade 
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